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PREFACE 


This book has been designed to help people with little or no 
programming knowledge construct their own arcade and 
adventure games. In its simplest form this book is like a Lego-set 
with ready made pieces that can be put together, even by the 
complete novice, to form a game. For those who wish to expand 
their understanding of the BASIC programming language each of 
the building blocks or routines is explained in straight-forward 
terms. Further sections of the book explain the routines in 
greater detail. More experienced programmers may also use this 
book as a source of ready written and documented routines for 
inclusion, perhaps with alterations, in their own programs. 
Many people are left bewildered when they try to make the 
transition from buying software to writing their own. Books on 
BASIC are full of obscure jargon and tend to treat a simple, highly 
practical subject as though it were an arcane, technical concept. 
The authors here have attempted to redress the balance by 
presenting a simple introduction to how a program is put 
together. A worked example of how to construct a program is 
given and this can be used as a step by step recipe by the readers 
for creating their own unique programs. This piece by piece, easy 
to understand approach allows the reader to become familiar with 
BASIC programs by ‘handling’ the routines and using them. In 
this way each small brick in the structure of programming 
becomes an understandable everyday object. With continued use 
these ‘objects’ will become less mysterious and will gradually 
become as easy to use as building bricks. In much the same way 
that children learn to speak English by playing with words, and 
even alphabet blocks, the reader will assimilate and learn the 
computing terminology and the BASIC language. This approach 
allows the learning process to be carried out at your own pace 
and, hopefully, through the games you construct, at your leisure. 


Obviously this approach also requires that this book be used in 
the same manner as a manual for mending cars or a recipe book: 
Keep it beside you as you work and refer to it for instructions at 
the appropriate points. Do not attempt to read straight through 
the book from cover to cover without keying in and trying many 
of the routines listed. By the time you have looked at and used 
most of the example programs you should find your confidence in 
practical BASIC allows you to write your own programs. We hope 
you enjoy this book and are rewarded for your studies by a 
growing understanding of BASIC and many hours of fun. 


Jean Frost and Frederick Siviter 


CHAPTER 1 


BASIC and Games, Computers and Cheesecake 


Computer games are becoming a very popular form of 
entertainment. They are also quite expensive. Many computer 
owners would like to cut down on this expense by writing their 
own games and this book is here to help you do just that. How do 
you write a computer game, then? Well, I think we’d better start 
by taking a general look at computers and the problems of 
converting our ideas for games into computer programs. 

Computers are really fast operators, and you may think an 
accountant is pretty nippy on his calculator keyboard, 
manipulating numbers, but that’s just peanuts compared to the 
speed at which computers work. Unfortunately computers are 
also dumb. They can’t do anything until you tell them what you 
want doing. So how do we tell a computer to do something? Well, 
if we really wanted to talk to a computer we would have to speak 
entirely in numbers, because that’s all they really understand! 
Fortunately most computers are supplied with a built-in 
interpreter. It’s just like the Prime Minister using an interpreter 
to tell the Russians exactly where they can put their missiles. The 
BASIC interpreter can translate our words into the number which 
the computer understands. 

Great, so we can just stroll up to the computer, pat it on the 
keyboard, and say ‘How much profit did I make selling 
cheesecake today ?”. . . Well it’s still not quite that easy, we have 
to phrase our question very simply and explain everything to the 
computer in simple and exact terms. The BASIC interpreter can 
only translate a limited number of words and it assumes that any 
word it doesn’t know is the name of somebody or something. 
Right, first we need to tell the computer the facts: 


The wholesale cost of a cheesecake is 30p each. 
The retail price of a cheesecake is 5Op each. 
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We also need to tell the computer things relating to these facts: 


Profit is calculated as retail price minus wholesale price. 
Total profit is profit per cake multiplied by the number of 
cheesecakes sold. 


Hopefully we have now given the computer all the information a 
child would need to work out the answer. Of course if we forgot 
to tell it something the small child might say “you forgot to tell 
me how many you sold”, and many computers would say 
something dumb like “VARIABLE NOT FOUND” which actually 
means the same thing. Your DRAGON is much too shy though, 
and instead of telling you it would assume you hadn’t sold any, 
which is even worse, so we must make sure we tell it everything it 
needs to know. To tell the computer anything we must express it 
in BASIC terms. BASICis like a restricted form of the English 
language so in BASIC the above statements would be: 


LET WHOLESALE = 30 
LET RETAIL = 50 
LET SOLD = 40 


(That’s what we forgot to tell it before.) 


LET PROFIT = RETAIL - WHOLESALE 
LET TOTAL = PROFIT * SOLD 


(On computers the asterisk ‘*’ is used instead of an x for multiply 
because we might get the x mixed-up in the middle of some 
letters.) 

The DRAGON, unlike some computers, allows us to miss out 
the word LET in statements like these, so to save you a lot of extra 
typing we won’t bother with LET from here on. So we can just 
say: 


WHOLESALE = 30 


If you have typed in these lines in exactly as above, pressing 
ENTER at the end of each line, the computer will have replied ‘OK’ 
to each statement you made. The computer now knows what the 
answer is but, hecause we didn’t ask it to tell us, it just sits there 
being stupid. To get it to give you the answer tell it to: 


PRINT TOTAL 


When you press ENTER the answer 800 will appear. 

Let’s re-examine how we got the computer to do something. 
We started with a problem then split the problem up into parts: 
We gave the computer the facts, we told it what steps it would 
need to go through to work out the answer, then we told it to tell 
us the answer. This sequence of instructions, like a recipe, is 
called an algorithm and all programs are just such algorithms 
(methods) written out in BASIC. 

Tf we wish to use the recipe again we would have to type it in 
again exactly as before. To save ourselves time we can store the 
instructions as a program on the computer by numbering each 
line or statement as we type it in. 


1 WHOLESALE = 30 

2 RETAIL = 50 

3 SOLD = 40 

4 PROFIT = RETAIL - WHOLESALE 
5 TOTAL = PROFIT * SOLD 

6 PRINT TOTAL 


This time as we type in each line the screen will show a LIST of all 
the instructions we have given it. This is a computer program 
(program comes from the word programme and, like the ones you 
get at the theatre, it shows the order in which things are going to 
be done). 

When we want the computer to show us what instructions it 
has stored we use the BASIC command LIST, followed by ENTER. 
and the lines of the program will be displayed on the screen once 
again. 

When we want the computer to RUN through the LIST of 
instructions we simply type the command RUN, then ENTER 
(which activates the command). 

The computer will then do all the instructions in the program 
and almost instantaneously PRINT the answer on the screen. 
Well, that was quicker than working it out in your head, but 
what a time it took getting the question into a state where the 
computer could answer it. Type in, exactly as shown: 
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3 INPUT “HOW MANY DID YOU SELL” ;SOLD 


This will replace the old instruction number 3 and tells the 
computer to ask you how many cheesecakes you sold each time 
you RUN the program. If you type anything other than 40 then 
the computer will give you a different answer. It will always be 
the right answer and it will be worked out far faster than you 
could have done it. To save the bother of typing RUN each time 
we could add an extra instruction to our program: 


7 GOTO 3 


This simply tells the computer to GO TO instruction 3 and 
continue from there down the lines of the program in order. Now 
we have a program that will keep asking you how many you sold 
and telling you what profits you would make. You will have to 
press BREAK to stop the program. 

Our program is numbered in consecutive numbers starting at 
1. However this is not usually the case with computer programs. 
Suppose we really had forgotten the line about the number of 
cheesecakes. We would have typed in a program that looked like 
this: 


1 WHOLESALE = 30 

2 RETAIL = 50 

3 PROFIT = RETAIL - WHOLESALE 
4 TOTAL = PROFIT * SOLD 

5 PRINT TOTAL 


If we typed RUN for this set of instructions the computer would 
assume that SOLD was zero, because no one has told it otherwise. 
It would therefore multiply PROFIT by zero in line 4 and make 
TOTAL equal to the result, zero! PRINT TOTAL would therefore 
print zero. Eventually we would realise what we had forgotten 
and would want to insert a line to tell it how many cheesecakes it 
had sold: 


3SOLD = 40 


We would now have to retype all the lines except the first two to 
create a gap for the new line. Although the computer goes down 


nl 


the LIST of instructions in order it doesn’t care if there are 
numbers that aren’t used. So, we can type our program with line 
numbers that go up in tens (or any other steps). Now any other 
lines we’ve missed out can be given a number between the 
numbers of the lines already there. 


10 WHOLESALE = 30 

20 RETAIL = 50 

30 PROFIT = RETAIL - WHOLESALE 
40 TOTAL = PROFIT * SOLD 

5®@ PRINT TOTAL 


Oops! We forgot that line again, but this time we can simply type 
25 SOLD = 40 


and the computer will place it in the LIST of instructions at the 
appropriate position. 

OK, (to quote the computer) we now know roughly what a 
BASIC program is, so how do we write one that plays a game ? 
We've got to think of the right LIST of instructions. That sounds 
like a big job to tackle all at once, so we’d better split it up into 
smaller sub-tasks. Let’s start with an overview of the sub-tasks 
that have to be performed in a typical Arcade-type game. These 
are: 


1. Initialisation. We must first set up the computer so that it is 
in the correct state to play the game. 

2. Instructions. We need to tell the player how to control the 
movement and firing, etc. 

3. Alien graphics. Decide what the opposition looks like. 

4. Player graphics. Decide what the good guys look like. 

5. Background. Draw some sort of scene against which the 
action takes place. 

6. Set-up routines. Telling the computer the facts. 

7. Movement and firing. Move the player and see if a shot is to 
be fired. 

8. Collision detection. See if an alien has been shot or the 
player has crashed. 
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9. Explosions. Blow up the poor unsuspecting alien who is very 
probably a victim of circumstances beyond his (or its) control. 

10. Scoring. Award the player some points for his gleeful 
destructive ability. 

11. Fuel and ammunition. Perhaps we might like to affect the 
quantities of these available to the player. 

12. Status display. Show the player how he is getting on. 

13. Check for end of game. See if something fatal has happened 
to the player or if the player has won. We will need to GOTO step 
7 if the game isn’t over. 

14. End of game display. Say goodbye to the player. 


Well, that’s a lot of things to do. In fact some of them look as if 
they need large programs just to do one sub-task. BASIC has a pair 
of commands which allow us to treat small programs as though 
they are sub-tasks or subroutines of a larger program. These 
commands are GOSUB and RETURN. The first of these is a lot like 
the GOTO command and makes the computer jump to the line 
number given, however the GOSUB command also tells the 
computer to remember where it came from. Once the computer 
has obeyed the GOSUB command it carries on down the list of 
instructions in the subroutine until it encounters the RETURN 
command. At this point it goes back whence it came having 
performed the sub-task. 

Using these commands we can write acontrol program which 
simply GOSUBs to the appropriate sub-tasks in the right order. All 
we will need to do then is define the sub-tasks for it to perform 
and it will achieve our total task of playing a game. The following 
listing shows just such a control program constructed on the basis 
of the need to perfOrm the subroutines as laid out above. This 
listing and all the other listings in this book have been produced 
directly from the DRAGON computer. Using the LLIST command, 
which you need to be Welsh (or slightly BRAHMS & . . .) to 
pronounce, you can tell the computer to LIST the program on to a 
printer. This ensures that all the programs in this book are 
correct, so if you have any trouble check that your typing 
corresponds exactly with the listings given. 


Cont. 


16 
12 
14 
26 


= 
25 


36 

4g 

Sg 

196 
162 
184 
166 
116 
112 
119 
126 
122 
129 
136 
1232 
139 
146 
142 
149 
156 
152 
15? 
166 
162 
169 
176 
172 
179 
189 
182 


13 
rol Program Listing 


REM KHKKKKKKKKKKRREK 

REM X#INITIALISATION*® 

REM KXKKKKKKKKKEREEK 

PCLEAR6: PMODE4,3:PCLS 

NV=@ 

N=43:PG=3:GOSUB 9969 

DIMFB(1):DIMN(1):DIMAB(1) 

GM=G:REM ¥NO. OF GAMES PLAYED* 
REM **XCONTROL PROGRAMKX 


REM KHHKKKKKKKRREK 
REM *INSTRUCTIONS* 
GOSUB 1999 

REM HEKKKKKKKKKKKEKEREE 
REM #GRAPHICS(ALIEN)* 
GOSUB 119% 

REM KXKKKKKKKKKKKKEE 
REM *GRAPHICS(SELF)* 
GOSUB 1266 

REM HHKKKKKKKKEK 

REM *BACKGROUND* 
GOSUB 1399: GM=GM+lL 
REM KEKKKKKKKKEKKKEEE 
REM ¥START-UP/RESET# 
GOSUB 1499 

REM HEKKKKRKKKE 

REM *MOVE/FIREX 

GOSUB 1596 

REM KKEKKKKKKKKKRRREE 
REM *¥CHECK FOR HIT*® 
GOSUB 1799 

REM HEKKKKKKKKE 

REM *EXPLOSION* 

IF HIT=1 THEN GOSUB 1899 
REM KHEKKKKKKE 


189 REM *SCORING* 

198 GOSUB 1989 

LPZ REM KEKKKKKKKKERKKEKEE 
199 REM *FUEL,LASERS ETC%® 
286 GOSUB 2999 

ZHZ REM HEKKKKKKKKKKKKEE 
269 REM *STATUS DISPLAY* 
216 GOSUB 2199 

ZLZ REM KEKKKKKKKKKKKE 
19 REM *END OF GAME?* 
GOSUB 2289 

REM KXKKKKKKKREEE 
REM *ROUND AGAIN® 

IF FIN=68 THEN 166 
REM KEEKKKKREEE 

REM *GAME OVER* 

48 GOSUB 23958 

42 REM KXKKKKKKKREEE 
249 REM *¥START AGAIN*® 
258 GOTO 149 

SZ REM KEEKKKKKKRERE 


NNN hn NN 


WAAAWANN NY 


NUNRQWN 


As you can see there are a lot of lines in the above program that 
start with the word REM. This means that anything following the 
REM is just a REMark or REMinder as to what is going on. The 
computer ignores these lines completely but stores them in the 
LISting so that we can understand what’s going on. 

In the next chapter there is an example of how to fill in the 
subroutines for this control program and in the following chapter 
there is a selection of routines that can be used to make up 
different games. 

However, before going on to that you should carefully type in 
the two routines and the list of DATA statements given below in 
listings 1.1, 1.2 and 1.3. These are special routines that will be 
explained in Chapter 6, but they are important to the working of 
the program, so they must be entered before going on. This 
consitutes our first category of initialising the computer to get it 
ready to play the game. 


Listing 1.1 


99086 PMODE4,FPG: SCREENI,1:REMthis 
is just so you can see it happe 

ning 

9O1G ST=7468H+1536%(PG-2) 

9826 FOR CH=98 TO N-1:RN=INT(CH/3 

2) 

9836 FOR Y=6 TO 7:READ CD:IF CD= 

999 THEN Y=7:GOTO 9959 

9835 IF NV=1 THEN CD=255-CD 

98498 POKE ST+224¥RN+CHt+32¥Y,CD 

9850 NEXTY,CH 

9955 RETURN 


Listing 1.2 


9899 REM *PRINT STRING¥ 
9998 IF PS="" THEN RETURN 

9918 AS=LEFTS(PS,1):PS=RIGHTS (PS 
sLEN(PS)-1 

9928 IF AS=" " THEN YG=144:XG=29 
8:GOTO 9959 

9938 YG=144:AS=ASC (AS) -65:IF AS< 
“A” THEN YG=152:AS=ASC (AS) -48 
9948 XG=8*AS 

9950 GOSUB 9960:XS=XS+8:GOTO 999 
g 

9968 PMODE4,3:GET(XG,YG)- (XG+7,Y 
G+7),N,G 

9978 PMODE4, 1:PUT(XS,YS)-(XS+7,Y 
S+7),N,PSET: RETURN 
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Listing 1.3 


S59 
592 


DATA 
DATA 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


B, 69, 66,66,126,66,66,9 
G,124,66,124,66,66,124, 


@,68,66,64,64,66,69,9 
@,120,68,66,66,68,129,9 
@, 126,64, 124,64,64,126, 


G,126,64,124,64,64,64,9 
B,68,66, 64, 78,66,69,9 
B,66,66,126,66,66,66,9 
@,62,8,8,8,8,62,9 
G,2,2,2,66,66,68,9 
@,68,72,112,72,68,66,9 
B,64,64,64,64,64,126,9 
66,192,908, 66,66,66,9 
B,66,98,82,74,708, 66,9 
B,68,66,66,66,66,69,9 
GB, 124,66, 66,124,64,64,9 
B,68,66,66,114,74,69,9 
G,124,66,66,124,68,66,9 
B,68,64,68,2,66,68,9 

@, 254,16, 16,16, 16, 16,9 
8, 66,66,66,66,66,69,9 
B,66,66,66,66,36,24,9 
B.66,66,66,98,192,66,9 
DB, 66,36, 24, 24,36,66,9 
G,139,68,49,16,16,16,9 
@,126,4,8,16,32,126,9 
B,8,5,5,9,8,9,9 

999 999,999, 99F, PPD 
G,24,36,44,52,36,24,9 
8,8,24,8,8,8,28,9 
G,24,36,8,16,32,69,9 
B,24,36,24,4,36,24,9 
B,8,24,40,72,124,8,9 


574 
576 
578 
538o 
582 
584 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


B,68,32,56,4,36,24,8 
@,28,32,56,36,36,24,9 
8,68,4,8,16,32,32,8 
8,24,36,24,36,36,24,8 
8, 24,36, 36,28,4,56,9 
9,9,8,9,9,9,8,9 
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CHAPTER 2 


Building Blocks, an Example Construction 


In the previous chapter we got to grips with the fundamentals of 
BASIC programming. In this chapter we will not be concerning 
ourselves so much with understanding the programs but more 
with using them. We will work through an example of how to 
build up a game by adding subroutines to the control program. It 
may be helpful to think of the control program as being like a 
“blocks and holes” type of child’s toy. To use it you must place 
one block in each hole to get acomplete program. Remember 
that each block must be the right shape for the hole you are 
putting it in, although there may be variation in details (like 
colour) of the block. In the listing of the control program and in 
the other listings throughout this book, you will see many lines 
beginning with REM These lines are not instructions to the 
computer but are merely REMarks or REMinders to us humans of 
what we intended when we gave the instructions. If you wish to 
leave these lines out to save time typing it won’t make any 
difference to the computer, the program or the game. It will 
mean, however, that you will need to take longer to find the 
section where some particular task is performed should you wish 
to examine or alter it later. Most people do not have perf ect 
memories so these REMinders can be very important when trying 
to read the program. 

Right then, let’s make a game. Obviously the first thing we 
need to do is type, or .OAD from tape, the Control Program and 
the initialisation routines given in Chapter 1. 

Having done this we need to decide what sort of game we wish 
to produce: What will be the aim of the game? Is it going to be a 
game of dodging ravenous spiders in the desert, or a game of 
blasting alien invaders out among the stars? Of course due to the 
nature of the system you could have cowboys shooting at alien 
flies in the middle of the ocean — whatever appeals to your sense 
of humour. It’s entirely up to you. Well, whatever you decide the 
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first things to consider are whether you are going toshootat 
things or dodge, and which modes of movement are available to 
your player. LEFT,RIGHT, UP, DOWN and even HYPER-space 
jumps can be selected. For our example game let’s choose to be a 
tank holding off alien invaders amongst the stars. 


Step 1. Choose the INSTRUCTIONS. Type in the first listing 
from the instructions section (listing 3.la, also given below), 
which must always be used. Now we must select and add the 
lines that allow us to move LEFT and RIGHT (listings 3.1b and 
3.1c). Finally we add the line which allows us to FIRE (listing 
3.1f). 


Listing 3.1a 


1989 CLS:U=9: D=98:F=9:H=68:L=9:R=9 
1919 PRINT@19, “INSTRUCTIONS” 
19689 PRINT@451, "PRESS ANY KEY TO 
CONTINUE" 

19998 AS=INKEYS: IF AS="" THEN 199 

@ 

1895 RETURN 


Listing 3.1b 


19290 PRINT@130, "USE LEFT ARROW T 
O MOVE LEFT":L=1 


Listing 3.1c 


1930 PRINT@162,"USE RIGHT ARROW 
TO MOVE RIGHT": R=1 


Listing 3.1f 


1969 PRINT@258, "USE @ TO FIRE":F 
=1 
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Step 2. 


Choose the ALIEN. We have already decided that we 


wantan alien invader so we'll use listing 3.2h. 


Listing 3.2h 


1199 
1119 
1128 
1139 
73 
1149 
1159 
1169 
1178 
1169 
A,G 
1199 


Step 3. 


REM XXXKEK KEKE 
REM ¥ALIEN INVADER¥ 
REM XXXHXKHKHK KEKE 
DATA 20,28,62,127,62,28,42, 


PG=2:N=1:GOSUB 9989 
REM XX XK KKH KIKI 
REM ¥STORE IN ARRAY ’°A’* 
REM RIE 
DIMA(1):GET(@,144)-(7,151), 


RETURN 


Choose the PLAYER. We wanta tank for our player so 


we'll use listing 3.3b. It is worth noting at this point that we 
could have chosen identical characters for both the alien and our 
player (e.g. both helicopters as in listings 3.2g and 3.3a) but it 
will look better if they are different. 


Listing 3.3b 


1289 
1219 
1229 
1239 
3,0 
1249 
1259 
1268 
1278 
1289 
B,G 
1299 


REM XXXHKKKKKKIEK 
REM ¥PLAYER TANK* 
REM XXXHXHKHKHKKE 
DATA 16, 16,84, 124, 124, 124,6 


FG=2:N=1:GOSUB 9999 

REM KKKKKKKKKKKKKEKKKERREE 

REM *STORE IN ARRAY °B’* 

REM KKKKKKHKKKEKKEKEKERKEEEE 
DIMB(1) :GET(@, 144)- (7, 151), 


RETURN 
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Step 4. Choose the BACKGROUND. We could select any listing 
from section 3.4 of Chapter 3, but since we want an outer space 
game let’s choose the scene with small stars (listing 3.4f). 


Listing 3.4f 


25 NV=¢ 

1L3GDGB REM KKKKKKKKKKKKEEE 

1385 REM * SMALL STARS * 

L31GD REM KKKKKKKKKKKKERK 

1359 PMODE4, 1:PCLSNV: SCREENI,1 
1368 FOR Q=@ TO 25 

13798 PSET(RND(255) ,RND(175) ,- (NV 
=@8)) 

1368 NEXT @ 

13998 RETURN 


Part of the general scene (or superimposed upon it) will be 
whatever we decide to display in the way of SCORES, AMMO and 
FUEL, so these headlines can be displayed here. We will ignore 
AMMO fer the time being and just have FUEL and SCORE (listings 
3.4i and 3.4j). 


Listing 3.41 


1365 PS="SCORE: ":XS=96: YS=176:GO 
SUB 9990 


Listing 3.4] 


1387 PS="FUEL:": XS=184: YS=176:GO 
SUB 9999 


Step5. START/RESTART routine. There is no choice about 

thisone. We need toset all the variables even if we don’t appear 
to be using them in this particular incarnation of our game. This 
is because some routines test them as a matter of course, and we 
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don’t want AMMO=0 (for example) causing the game to end 
prematurely. 


Listing 3.5 


L4DH REM KHEKKKKKKKK KEKE KEE 
1495 REM *SET UP AND RESTART* 
L41D REM KEKKKKHKKKKEK KERR 
1426 ALIENS=19:REM ¥NO. OF ALIEN 


S* 

1439 SCORE=9:REM *SET SCORE TO Z 
ERO*X 

1449 AMMO=19: REM ¥SET LASERS TO 
FULL* 


1459 FUEL=19:REM *SET FUEL TO FU 
LL* 

1469 PY=168:PX=129:REM *START PO 
SITION OF SELF* 

1479 IF F=@ THEN PY=8:REM *CHANG 
E POSITION FOR DODGING GAME* 
1475 GET(PX,PY)-(PX+7,PY+7) ,PB,G 
>PUT(PX,PY)-(PX+7,PY¥+7),B,PSET 
1489 DD=1:P=9:FIN=9 

1499 XP=PX:YP=PY 

1495 RETURN 


Step6. MOVE/FIRE routine. The main routine from this section 
must always be typed in, so first of all add listing 3.6a. Now we 
need the lines which allow us to move LEFT & RIGHT (listing 
3.6b). Including this routine will only allow us to move LEFT or 
RIGHT provided we added the appropriate line in the 
INSTRUCTIONS routine. 


Listing 3.6a 


L5SGD REM KHKKKKKKKKKKE 
1592 REM *MOVE & FIRE* 
L5GDS REM KEKKKKKKKKKKE 


1519 IF DD=@ THEN 1549 
1529 DD=9 

1538 AY=8:AX=RND(32) ¥8-8: XA=AX 
1535 REM ¥*¥MOVE ALIENX* 

1549 IF AY<>8 THEN PUT(XA,AY-8)- 
(XA+7,AY-1) , AB, PSET 

1545 GET(AX,AY) ~(AX+7,AY+7) ,AB,G 
:PUT (AX, AY) - (AX+7, AY+7) ,A,PSET 
1559 XA=AX:AY=AY+8:IF AY=168 THE 
N DD=1:P=P+1: ALIENS=ALIENS-1 
1555 IF DD=1 THEN PUT(XA, AY-8) -( 
XA+7,AY-1),AB,PSET 

1568 AX=AX+8%(RND(3)-2) 

1565 IF F=@ AND AX>PX THEN AX=AX 
-8:GOTO 1589 

1579 IF F=@ AND AX<PX THEN AX=AX 
+8:GOTO 1589 

1589 IF AX<@ THEN AX=9 

1599 IF AX>248 THEN AX=248 

1595 REM XA 

1596 REM * MOVE PLAYER * 

1599 REM XIE 

1699 AS=INKEYS 

1639 IF PX<@ THEN PX=9 

1635 IF PY<@ THEN PY=9 

1649 IF PX>248 THEN PX=248 

1645 IF PY>168 THEN PY=168 

1659 IF PY=YP AND PX=XP THEN 168 
g 

1668 PUT(XP,YP)- (XP+7, YP+7) ,PB,P 
SET 

1678 GET(PX,PY)- (PX+7,PY+7) ,PB,G 
:PUT (PX, PY) - (PX+7,PY+7) ,B,PSET 
1675 YP=PY:XP=PX 

1689 K=@:IF F=1 AND AS="9" THEN 
K=1 

1699 RETURN 
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Listing 3.6b 


1598 REM * LEFT & RIGHT * 

1692 REM **LEFT AND RIGHT*¥* 
1695 IF L=1 AND AS=CHRS(8) THEN 
PX=PX-S 

1619 IF R=1 AND AS=CHRS(9) THEN 
PX=PX+8 


Step 7. CHECK FOR HIT routine. We must select a routine 
which will fire some sort of weapon so we won't use 3.7a. Let’s 
use 3.7c, the !.ASER routine. 


Listing 3.7 


1 7B REM HXHKHK KEKE 
1781 REM ¥CHECK FOR HIT¥ 

1762 PEM * LASER * 

17OS REM HXKEKKKKKHKHKEE 

1719 HIT=O:IF K=@ THEN 1799 

1715 SOUND1@@,1 

72 BX=PM+3:BY=167 

1728 COLOR(1 AND NV=@),1:LINE(BX 
;BY)- (BX,8),PSET 

1745 IF BX>XA-1 AND BX<XA+8 THEN 
HIT=1 

1755 CQLORNV, 1:LINE(BX, BY) -(BX,8 
), PSET 

1798 RETURN 


Step 8. EXPLOSION routine. When we hit something we want 
to have some sort of acknowledgement of our success. We will 
choose a BLIP noise (listing 3.8i) for our LASER. We must add 
listing 3.8k because ours is a FIREing game and we need to wipe 
the alien from the screen when we hit it. 
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Listing 3.81 


1LEGH REM HHKKKKKKKKKEKEK 
16961 REM * EXPLOSION * 
1s92 REM * BLIP * 
1SGS REM KHKKKKKKKKKKE 
1619 FOR @=1 TO 5 

1820 SQUNDISS, 1 

1849 NEAT 8 

169@ RETURN 


Listing 3.8k 


1860 IF F=1 THEN PUT(XA;AY-8)-(X 
A+?,AY-1),AB,PSET:DD=1: ALIENS=AL 
IENS-1 


Step 9. SCORE routine. When we hit something we also want to 
have some sort of increase in our SCORE to tell us what great shots 
we are. We will choose to give ourselves 10 points for each alien 
we hit (listing 3.9d). 


Listing 3.9d 


J 


0s 


REM HHKKKKKKKKKH KKH 

REM *¥SCORING ROUTINE* 

REM *¥ 19 POINTS * 

REM HXXKKKKKKKKKKKHKE 

IF HIT=@ OR F=@ THEN 19°79 
SCORE=SCORE+1 9 

RETURN 


BRR Re 
INK QRQBA 
RBRaQganneaA 


a es es) 


be 


Step 10. FUEL & AMMUNITION routine. As we have decided 
to use FUEL and ignore AMMUNITION, we will start with listings 
3.10b and 3. 10fto decrease our FUEL, or energy reserves each 
time we fire our laser. We also want to increase the fuel when we 
score a hit and we will be generous and give ourselves a total 
reFUEL for each hit (listing 3. 10h). 
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Listing 3.10b 


2ZISH REM HKKKKKKKKKKKKKKEKHEKREE 
2692 REM *FUEL AND AMMUNITION* 
2093 REM * * 
ZOBS REM HKEKHKKKKKH HHH KKK 
20998 RETURN 


Listing 3. 10F 


SP REP KKEKKKKKHKKKKHHHEK 
2638 REM *DECREASE FUEL* 
2ZOESP REM HHKHEXKHEKKKKKKKK 
2646 IF K=1 THEN FUEL=FUEL-1 


Listing 3.10h 


2OI7 REM HKEKKKKHKKHKKKKEK 
2643 REM * RESET FUEL * 
2ZEIP REM HEKKKKHHHHHEKKE 
26598 IF HIT=1 THEN FUEL=19 


Step 11. STATUS DISPLAY. We need to update the display of 
information on the screen. For the SCORE we will need to use 
listing 3.11b. As we have already decided to tell the player how 
his fuel supply is progressing we will have to add listing 3.1 1d. 


Listing 3.11b 


Z1DH REM HHXHXKKKKKKKKHHHKEE 
2ig2 REM ¥STATUS DISPLAY * 


2195 REM ¥* * 
ZADP REM HEKKKKKKKKKKKHHKE 
2119 * 


ZALP REM HKKKHHHHHHHKHEK 
2118 REM ¥DISPLAY SCORE* 
ZLLD REM HKKKHHHKKKKHHEE 


Q 


PS=STRS(SCORE) +" "2 xKS=144:Y 
76:GOSUB 7999 
@ RETURN 


Ng) bh) 
me ie 
or 


Listing 3.11d 


NM 


REM HHH KKHKKHHHKE 

3 REM ¥DISPLAY FUEL*¥ 

FP REM HHKKHHKHHHKK KKK KE 
PS=STRS(FUEL) +" "SXS=224: 7S 
6:GOSUB 9999 


Qa: 


Ito hob bl 
Be Re 


NB wa 


Step 12. CHECK FOR END. Now we need to decide what 
conditions are going to indicate the end of the game. Obviously 
we will want to end the game at some time, so we start with 
listing 3.12a and add at least one of the other listings from that 
section. For our game let’s choose to end the game if we let 3 of 
the opposition get PAST or if we run out of FUEL. So we have to 
add listings 3.12d and 3.12e. 


Listing 3.12a 


REM HHH HHH HHH HK HHH HHH HHH HE 
REM ¥CHECK FOR END OF GAME 
REM HHH HHH HHH HHH HHH HHH HEHEHE 
RETURN 


NW) bd 
DW QQA 
RQuansa 


hob) bof) 


hn) 


Listing 3.12d 


2249 IF P=2 THEN FIN=1 


Listing 3.12e 


2258 IF FUEL=@ THEN FIN=1 
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Step 13. END OF GAME DISPLAY. If it’s the end of the game 
we need to either stop the game, or ask the player if he wants 
another go. Let’s choose the POLITE STOP routine (listing 3.13b) 
and, since we have a SCORE, we'll also add listing 3.13c to tell us 
what we got. 


Listing 3.13b 


Q 


Q a Queaan 


REM KEEKKKEKKKEKE 

REM * STOP GAME ¥* 

REM *POLITE STOP* 

REI KKKKKKKHKKHEK 

cLS 

PRIN7T@235, "ANOTHER GO?": AS= 
Ss 

AS=INKEYS: IF AS="" THEN 234 


Qa 


AZHuaMauUa 
area 


hs 


SO IF AS<>"N" THEN 2379 
568 STOP 
98 RETURN 


NNN QMAN Nh hhh 


GW Gl iw 


Listing 3.13c 


2528 PRINT@136, "OUR SCORE WAS"$ 
SCORE 


And that’s it! Your final listing should look like the example 
below. If it doesn’t then make sure you’ve typed in all the listings 
with the right line numbers. Now all you have to do is key in RUN 
and press ENTER to play your game! GOOD SHOOTING! 

If you have any problems or error messages then go back 
through your listing and check it corresponds exactly with the 
one below. The error message will tell you where the problem 
was noticed and it would be a good idea to look there first. Since 
the program is split up into sections you can check through just 
one section at a time. Of course the error might be in one of the 
previous sections and only have been noticed now. So, if you 
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can’t see an error where it says, try working backwards. 
Remember, anything out of place or mis-typed will alter the 
program and could cause it to stop. 


Example Program 


LD REM KHKKICKKKKKKKKERE 

12 REM ¥INITIALISATION® 

14 REM KXHKKKHKKKKREEEE 

26 PCLEAR6:FPMODES,3:FCLS 

25 Nv=o 

38 N=43:FPG=3:GOSUB 9999 

46 DIMPB(1):DIMN(1):DIMAB(1) 

SO GM=8:REM *NO. OF GAMES FLAYED 


199 REM ¥*¥CONTROL FROGRAMK*® 


184 REM KHKKKKKKKKREKE 
196 REM *INSTRUCTIONS* 
1196 GOSUB 19995 

LL REM KKKKKKKKKKKEKKKEEEE 
119° REM *GRAPHICS(ALIEN) * 
129 GOSUB 1199 

LEE REM KKKKKKKKEREKEREE 
125 REM *GRAPHICS (SELF) * 
1390 GOSUB 1299 

LEZ REM HEKEKKKHKKHEKEE 

129 REM *BACKGROUND* 

149 GOSUB 13989: GM=GM+1 
L142 REM HHHKKKKKKKEKKHKE 
149 REM ¥START-UP/RESET# 
15@ GOSUB 1499 

152 REM KKEKKKKKKKKE 

159 REM *MOVE/FIRE*X 

1698 GOSUB 1599 

162 REM KEKKKKKKKHKKERE 
169 REM *¥CHECK FOR HIT* 
178 GOSUB 1799 


REM KKEKEKKKKKKKE 

REM *EXPLOSION* 

IF HIT=1 THEN GOSUB 1899 
REM KKEKKKKEKE 

REM *SCORING* 

GOSLIE 1999 


Z REM KEKKKKKKKKKEHKEKEHEEK 


aNQwn 


NO 


hHhADAGUANNNRK KK QA 
oO 


NNN Nyy Nh oh no 
aN Qvuna 


aa oaunn 
rs NaQna 


aaa gaan 


ny Os 


tay 
Q 


cay ch cn cn cn on 


a renga eer ae oh 
QAgNaLNA 


REM *FUEL,LASERS ETC* 
GOSUB 2999 

REM FAG 

REM *¥STATUS DISPLAY* 

GOSUB 2199 

REM FGI 

REM *END OF GAME?* 

GOSUB 22799 

REM XIE 

REM ¥ROUND AGAIN* 

IF FIN=0 THEN 169 

REM XHXXHKHHEHE 

REM ¥GAME OVER* 

GOSUB 2399 

REM HI 

REM ¥START ‘AGAIN® 

GOTO 149 

REM FI 

DATA 8,68,66,66,126;66,66,9 
DATA @,124,66,124,66,66, 124, 


DATA 8,69,66,64,64,66,68,9 
DATA G,128,68,66,66,68,125,9 
DATA 9, 126,64,124,64,64, 126, 


DATA @,126,64, 124,64,64, 64,9 
DATA 8,69,66,;64,75,66,69,.9 
DATA ©, 66, 66, 126,66,66,66,9 
DATA 9,62,8,3,8,3.62,9 

DATA 9,2,2,2,66,66, 69,9 

DATA %,68,72,112,72,68,66,9 


NQ0Ou BN 


Bey 


ann ck Ue 
Gu W GAN oN ND 


oO oO 


a) 


oa ae 
0 0) 0) Oo 


DATA 8.64,64,64,64,64, 126,95 
DATA 6,66,192,768,66,66,66,9 
DATA 9, 66,°8,82,749,768,66,98 
DATA 98,68 ,66,66,66,66,609,9 
DATA 3, 124,66,66,124,64,64,9 
DATA %,68,66,66,114,74,69,9 
DATA 9,124,66, 66, 124,68,66,8 
DATA 6,69,64,69,2,66,69,9 
DATA ©, 254,16,16,16, 16,16, 
DATA 9,66,66,66,66,66,69,9 
DATA 8, 66,66,66,66,26,24,9 
DATA 8,66,66,66,968,192,66,9 
DATA 9,66, 36,24,24,36, 66,9 
DATA 9,139,68,46,16,16,16,9 
DATA &,126,4,3,16,32,126,98 
DATA 9,9,9,9,9,9,9,9 

DATA 999,999, 999,999, 999 
DATA 9,24,36,44,52,36,24,9 
DATA 9,5,24,8,8,8,28,9 

DATA 9,24,36,8,16,32,69,9 
DATA 96,24,36,24,4,36,24,9 
DATA 9,8,24,46, 72,124,8,9 
DATA 9,60,32,56,4,36,24,9 
DATA 9,28,32,56,36,36,24,9 
DATA 9,66,4,8,16,32,32,9 
DATA 9,24,36,24,36,36,24,9 
DATA 9,24,36,36,28,4,56,9 
DATA 9,8,8,9,9,9,8,9 

FEM instructions 


19699 CLS: U=@: D=@: F=0:H=O:L=98:R=9 
19190 PRINT@19, "INSTRUCTIONS" 
1928 FRINT@1390, "USE LEFT ARROW T 
© MOVE LEFT";L=1 

1929 PRINT@162, "USE RIGHT ARROW 
TO MOVE RIGHT": R=i 

1969 PRINT@258, "USE @ TO FIRE“:F 


=1 


31 


32 


1989 


PRINT@451, "PRESS ANY KEY TO 


CONTINUE” 


1996 
g 
1995 
1999 
1199 
1116 
1126 
1126 
73 
1149 
11598 
1169 
1179 
1189 
A,G 
1199 
1199 
1208 
1219 
1229 
1239 
8,9 
1249 


AS=INKEYS: IF AS="" THEN 199 


RETURN 

REM alien graphics 

REM KXKKHKHHK HHH HHH 

REM ¥ALIEN INVADER*¥ 

REM KHKKHHHKKHHHHHHH 

DATA 26, 28,62,127,62,28,42, 


PG=2:N=1:GOSUB 9999 
REM JI 
REM ¥STORE IN ARRAY °A’* 
REM FEI 
DIMA(1):GET(@, 144)-(7, 151), 


RETURN 

REM sel# graphic 

REM KHHKHKKKHHHHEK 

REM ¥PLAYER TANK* 

REM KHKKHHKHKHH HHH 

DATA 16, 16,84, 124,124,124,6 


PG=2:N=1:GOSUB 9999 
REM HII 
REM ¥STORE IN ARRAY ’B’* 
REM GI 
DIMBi1) :GET(9,144)-(7,151), 


RETURN 

REM background 

REM KHKKHKHKHK HHH HEHE 

REM * SMALL STARS ¥* 

REM HHKHHHKHHHKHH HHH 
FMODE4, 1: PCLSNV: SCREEN1, 1 
FOR @=6 TQ 25 


1370 PSET(RND(255) ,RND(175),- (NV 
=@)} 

368 NEXT @ 

12685 P$="SCORE: ":XS=96:YS=176:G0 
sub 9990 

1367 PS="FUEL: ":XS=164:YS=176:G0 
SUB 99998 

3998 RETURN 

14QD REM HXHKKHKHK HEHE K HER HEK 
1495 REM *SET UP AND RESTART* 
141 REM 4XHKK KKK HE KEK HEE EEH 
142@ ALIENS=!@:REM ¥NO. OF ALIEN 
S* 

143@ SCORE=9:REM ¥SET SCORE TO Z 
EROX 

144@ AMMO=1!9:REM ¥SET LASERS TO 
FULLS 

145@ FUEL=19:REM ¥SET FUEL TO FU 
LL¥ 

14968 PY=166:PX=120:REM ¥START PO 
SITION OF SELF¥ 

1470 IF F=@ THEN PY=6:REM *¥CHANG 
E FOSITION FOR DODGING GAME* 
1475 GET(PXsPY)-(PX+7,PY+7) »PB,G 
SPUT(PX,PY)-(PM+?,PY+7),B,PSET 
1960 DD=1:P=0:FIN=0 

1490 XPSPMIYP=PY 

1495 RETURN 

LEOG REM KHKKKHKHKKHEK 

FEM MOVE @ FIRE 

LSAT REM HHHKNKKKKKKEK 

1519 IF DD=@ THEN 1549 

i5z22 DD=0 

1529 AY=6:AX=RND (32) *6-6: XA=AX 
1535 REM ¥¥MOVE ALIEN¥* 

154@ IF AY<>S THEN PUT(NA,AY-6) - 
(NA+7,AY-1),4B,PSET 


33 


34 


1545 GET(AX,AY)-(AX+#7,AY4+7),AB,G 
:PUT (AX, AY) -(AX+7, AY47) ,A,PSET 
1SSQ NA=AX:AY=AY+S:IF AY=168 THE 
N DD=1:P=P+1!:ALIENS=ALIENS~1 
1555 IF DD=1 THEN PUT(XA,AY-@) -¢ 
MA+?,AY-1) ,AB,PSET 

1560 AX=AX+8*(RND(3)-2) 

1565 IF F=90 AND AX>PX THEN AX=AX 
-8:GoTO 1589 

1570 IF F=90 AND AX<PX THEN AX=AX 
+8:GOTO 15890 

1588 IF AX<@ THEN AX=0 

1590 IF AX:248 THEN AX=248 

1595S REM XX XK HK HEHE KHEHE 

1596 REM * MOVE PLAYER * 

1596 REM * LEFT & RIGHT * 

1SFP REM XHXKHKKKHKKEKHEEH 

1500 AS=INKEYS 

1692 REM ¥¥LEFT AND RIGHT#* 

L=i AND AS=CHRS(3} THEN 


R=1t AND AS=CHRS(9) THEN 


PX<X& THEN PX=9 

iG35 IF PY<@ THEN PY=9 

15490 IF PK?248 THEN PX=248 

1645 IF FY%i6s THEN PY=163 

1359 IF PyvY=VP AND PX=XPF THEN 166 


g 
1659 PUT(XP, YP)-(XP4+?, YP+?),PByP 
SET 

1670 GET(PM,PY) -(PX+7,PY+7),PB,G 
PPUT(PX,PY)-(PX+7,P¥+7) ,B,PSET 


1675 YE=PY: XP=PX 

1680 K=@:iF F=1 AND AS="®@" THEN 
K=t 

1699 RETURN 


1708 
1781 
1792 
1795 
ts 
1715 
1728 
1738 
»BY)- 
1745 
HIT= 
1755 
},PSE 
1798 
1890 
1801 
1892 
1865 
1619 
62 
1649 
186 
A+?7,A 
IENS- 
1898 
1990 
1992 
1995 
1919 
1920 
1999 
2008 
2001 
2002 
2803 
2084 


REM XXX XKEKHE KHER 
REM *CHECK FOR HIT* 

REM ¥ LASER * 

REM XH KKH 
HIT=@:IF K=@ THEN 1799 
SOUND19@, 1 

BM=PX+21 BY=167 

COLOR(1 AND NV=@),1:LINE(BX 
(BX,8),PSET 

IF BX>XA-1 AND BX<XA+8 THEN 


COLORNV, 1: LINE(BX,BY)- (BX,8 
t 

RETURN 

REM 3G 

REM * EXPLOSION ¥ 

REM *  ELIP * 

REM XXXII 

FOR Q@=1 To 5 

SOUND 159, 1 

NEXT @ 

IF F=1 THEN PUT(XA,AY-8) -(X 
Y-1),AB,PSET:DD=1:ALIENS=AL 
1 

RETURN 

REM JERE 

REM ¥SCORING 18 POINTS* 

REM JHE 

IF HIT=@ OR F=@ THEN 1999 
SCORE=SCORE+19 

RETURN 

REM ARIE 
REM * * 
REM % FUEL AND AMMUNITION * 
REM * ¥ 
REM FGI 
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2ZOS7 REM KHKKKKKKKKKKKERKE 

2038 REM * DECREASE FUEL * 

2ZOSP REM KHKKKKKKKKKKKERKE 

26490 IF K=1 THEN FUEL=FUEL-1 
2ZOI7F REM KHEKKKKKKHKKHERE 

2648 REM * RESET FUEL * 

2ZEID REM KHEKKKKKKKKKEKEK 

2050 IF HIT =1 THEN FUEL=19 

29998 RETURN 

Z1GG REM HHKKKHKKKKKKHEKKEEEE 

21962 REM ¥STATUS DISPLAY * 

2193 REM * * 

Z1D7 REM HHKKKKKKKKKHEKKEEEE 

21198 ° 

ZLLZ REM KXKKKKKKKKKREKE 

2118 REM *¥DISPLAY SCOREX 

ZLLF REM KHKKKKKKKKKEEKE 

2128 PS=STRS(SCORE) +" ":XS=144: 7 
S=176:GOSUB 9999 

ZLS7 REM KHEKKKKKHKKKEKEEK 

2138 REM *¥DISPLAY FUEL* 

ZLSP REM HHKKKKKKKKKKKE 

21490 PS=STRS(FUEL) +" "2 XS=224:YS 
=176:GOSUB 9999 

21998 RETURN 

22D REM HHKKKKKKKKEKKKKKKKEKKEKEERE 
2262 REM *CHECK FOR END OF GAMEX 
ZZ2GDS REM KEKKKKKKKKEKKKKKEKRKKEEE 
2249 IF F=3 THEN FIN=1 

2258 IF FUEL=@ THEN FIN=1 

22°98 RETURN 

2ZIGG REM KEKKKKKKKKKKE 

2362 REM * STOP GAME * 

2303 REM *POLITE STOP* 

2IDS REM KHEKKHKKKKKKKE 

2319 CLS 

23298 PRINT@136,"YOUR SCORE WAS"; 
SCORE 


330 PRINT@235, "ANOTHER GO?": AS= 
INKEYS 
2340 AS=INKEYS: IF AS="" THEN 234 
@ 
2358 IF AS<>"N”" THEN 2399 
23668 STOP 
2399 RETURN 
9808 PMODE4,PG: SCREEN1,1:REMthis 
is just so you can see it happe 
ning 
9OI1GB ST=768O8+1536% (PG-2) 
9920 FOR CH=9 TO N-1:RN=INT(CH/3 
2) 
9938 FOR Y=8 TO 7:READ CD:IF CD= 
999 THEN Y=7:GOTO 96598 
9835 IF NV=1 THEN CD=255-CD 
98490 POKE ST+224¥RN+CH+32¥Y, CD 
9950 NEXTY,CH 
9955 RETURN 
9899 REM ¥PRINT STRING¥ 
99968 IF PS="" THEN RETURN 
9918 AS=LEFTS(PS,1) 2 PS=RIGHTS(PS 
»LEN(PS)-1) 
9926 IF AS=" " THEN YG=144:xG=29 
8:GOTO 9959 
9938 YG=144:AS=ASC (AS)-65: IF AS< 
"A" THEN YG=152:AS=ASC (AS) -48 
99468 XG=B8xAS 
99568 GOSUB 9968: XS=XS+8:GOTO 999 
@ 
9968 PMODE4,3:GET(XG,YG)-(xXGt7,Y 
G+7),N,G 
9976 PMODE4, 1: PUT(XS, YS) -(XS+7,Y 
S+7),N,PSET: RETURN 
19990 AS="LISTING 3." 
196919 INPUT"LISTING 3.WHAT"5IS 
19920 PRINT#H-2,AS+IS 
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SAVING YOUR PROGRAM 


When you are satisfied with your game you will probably want to 
SAVE it on cassette tape. This is done in the following way: 

1. Position the tape in your cassette recorder, making sure that 
you have wound it past any plasticheader tape as this cannot be 
recorded on. 

2. Decide on a name for your program — you can use up toten 
letters. For the purpose of this example let’s use the name ‘MY 
GAME’. 

3. Nowtype in, without a line number: 


CSAVE “MY GAME” 


4. Press the RECORD and PLAY keys together on your 
recorder then press ENTER. If you pressed ENTER before starting 
the tape you will either have to wait until the computer has 
finished and start again or you can stop it by pressing the RESET 
button on the left side of the computer. This will always stop the 
computer in its tracks and you will not lose your program. You 
will find that the BREAK keys will not interrupt a CSAVE (or 
CLOAD or SKIPF). However, be certain to press RESET and not the 
POWER SWITCH on the back of the computer. That certainly 
would cause the loss of your program. 

$. Nothing much happens on the TV screen except that the 
flashing black cursor disappears. When the program has been 
saved the computer will once again chirp OK. 

6. Now it would be nice to check that your program has been 
recorded properly. There is no foolproof way of doing this on the 
DRAGON but the following will usually fail with 210 ERROR if 
there is anything wrong with the recording. 

First, rewind the tape and type either 


SKIPF “MY GAME” 
or 
SKIPF (on its own) 


In either case press ENTER and start the tape (PLAY this time not 
RECORD)). 
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If it all goes fine and ends with OK then your program is 
probably recorded properly, but the only way you will ever know 
for sure is to switch off and on again and type CLOAD“MY GAME” 
followed by ENTER to load the program in again. I suggest that 
you have several successful SKIPFs before trying that. 

If you have problemsrecording, try experimenting with 
different volume levels and, if your recorder has a tone control, 
turn it tomaximum treble. 


CHAPTER 3 


Arcade Games, a Selection of Lego Bricks 


This chapter is made up of thirteen sub-sections. Each of these 
sections contains a selection of routines which can be used to fill 
the holes in the control program. Remember to read the 
instructions at the start of each section which tells you whether 
listings are optional or not. If you don’t feel too confident, why 
not follow the example routine and just use one different 
subroutine. Try, for example, a different background or a 
different alien and you will see how easy it is to make changes to 
the game. The more routines you decide to change the more your 
game will differ. Remember as long as you don’t try to fit a 
square peg into a round hole you can use the routines in any 
combination. Some games may look a little bizarre, but at least 
they’ll still be playable! 

Following each section of listings is a brief explanation of how 
the routines in that section work. This includes details of what 
variables they change and how they relate to the other routines in 
the overall program. 

We hope you enjoy experimenting with these routines as much 
as we enjoyed writing and testing them. 


Section !: INSTRUCTIONS 


In this section 3.1a always needs to be used. This performs the 
basic tasks of getting ready to give instructions. Add to this any 
or all of the following listings 3.1b - g to complete the instructions 
block. It doesn’t matter in what order you add the lines, because 
the computer will place them in numerical order in its listing. 
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47 


Listing 3.la 


1999 CLS: U=9: D#=9:F=9:H=9:L=9:R=9 
1919 PRINT@19, “INSTRUCTIONS” 
1989 PRINT@451,"PRESS ANY KEY TO 
CONTINUE" 

1999 AS=INKEYS:IF AS="" THEN 199 

g 

1995 RETURN 


This listing gives the instruction for,and enables, LEFT 
movement. You would normally include the RIGHT movement 
listing as well, but it’s up to you. 

Listing 3.1b 


1929 PRINT@139, "USE LEFT ARROW T 
O MOVE LEFT":L=1 


This listing gives the instruction for, and enables, RIGHT 
movement. 


Listing 3.1c 


1939 PRINT@162, "USE RIGHT ARROW 
TO MOVE RIGHT": R=1 


This listing gives the instruction for, and enables, DOWNward 
movement. You would normally include the Upward movement 
listing as well, but again, it’s up to you. 


Listing 3.1d 


1949 PRINT@194,"USE DOWN ARROW T 
GO MOVE DOWN": D=1 
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This listing gives the instruction for, and enables, Upward 
movement. 


Listing 3.le 


1959 PRINT@226,"USE UP ARROW TO 
MOVE UP"; U=1 


This listing gives instructions for, and enables, FIREing. 


Listing 3.1f 


1968 PRINT@258,"USE 9 TO FIRE":F 
=1 


This listing gives the instruction for, and enables, HYPER-drive 
for HYPER-space movement. 


Listing 3.1g 


1978 PRINT@299,"USE H TO HYPER-D 
RIVE":H=1 


The main instruction routine (listing 3. 1a) clears the screen and 
PRINTs up a heading “INSTRUCTIONS”. It also sets a number 
of variables that are used to indicate whether a particular ability is 
enabled. These variables (L,R,U,D,F and H) are all set to @ (to 
indicate that they are disabled). 

The other routines, when present, will be inserted in the list of 
instructions at this point. Each of these will PRINT a message on 
the screen telling you how to activate someaction and also reset 
the appropriate flag variable to 1 (indicating that it is enabled). 
These flags are examined in other parts of the program to see 
whether or not the player is allowed to perform a particular 
action. 
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Flag variables are really just like any other variable, but we only 
give them the values | or 0. In this way they are used as 
indicators (either on or off), which can be quickly tested. 

The final three lines of the main routine PRINT the message at 
the bottom of the screen and then wait until a key is depressed 
before RETURNing to the control program. 


Section 2: ALIEN GRAPHICS 


Choosing a shape for the aliens is very simple. Any of the 
following routines will define a character to use as the aliens. 
Each routine is accompanied by a display which shows the 
character’s shape enlarged. It is important to remember at this 
stage that you will want to choose just one listing from this 
section and it can be any of the thirteen routines presented. 


ALIEN FIGHTER 
Fig. 3.2a 
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Listing 3.2a 


1199 
1119 
1126 
1136 
1149 
1158 
1169 
1178 
1166 
A,G 

1199 


REM XXXXKEKHKHKEKEE 
REM ¥ALIEN FIGHTER* 

REM XXX KKK 

DATA @,3,14,31,126,31,14,3 
PG=2:N=1:GOSUB 9890 

REM AGE 
REM ¥STORE IN ARRAY ’A’* 
REM IIE 
DIMA(1) :GET(@, 144) -(7,151), 


RETURN 


ALIEN BUG 
Fig. 3.2b 


Listing 3.2b 


L19G REM HHKKKKKKHKK 


1119 


REM *ALIEN BUG* 


L12G REM KKKKKHKHKKE 


1136 DATA 49,16,84,56,254, 56,384, 
g 

114@ PG=2:N=1:GOSUB 76669 

LLSD REM KEHEKKHKHEKHKKEHHEHHEHEKHE 
1169 REM *STORE IN ARRAY ’A’* 
LLP REM HHH HEHEHE 
1160 DIMA(1):GET(G,144)-(7, 151), 
A,c 

1196 RETURN 

ALIEN FLY 

Fig. 3.2¢ 


Listing 3.2c 


1169 
1116 
1126 


1136 DATA 36,24,69,99,153,165,19 


5.9 
1149 


REM KKEKKKKKKKKE 
REM *ALIEN FLY* 
REM KKEKEKKKKKKKE 


PG=2:N=1:GOSUB 9669 
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LISS REM KKEKKHKKKKHKKHKKHKHKHKE 
1169 REM ¥STORE IN ARRAY ’A’* 
LL7FD REM KHKKKKKKHKKKKKEHKKKHEKE 
1189 DIMA(1);°GET(98,144)-(7,151), 
A,G 
1199 RETURN 
ALIEN DESTROYER 
Fig. 3.2d 
@ 
N + W O 
- OMNn OWOTN = 

28 

20 
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42 

34 

54 
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Q 


Listing 3.2d 


1199 
1119 
1129 
1139 
1149 
1159 
1169 
1179 


REM XXXKK KKK IKI 
REM ¥ALIEN DESTROYER*¥ 

REM XXXHKHK KEK EH KEKE 

DATA 28,20,99,42,34,54,20,98 
PG=2:N=1:GOSUB 9999 

REM XXIII 
REM ¥STORE IN ARRAY ’A’* 
REM JEG 


1189 
A,G 
1199 


47 


DIMA(1):GET(S, 144)-(7,151), 


RETURN 


ALIEN SKULL 
Fig. 3.2e 


62 

126 

213 

259 

231 

126 

36 

62 
Listing 3.2e 
L1LGGD REM HHEKEKHKKKHKHHEE 
11190 REM *ALIEN SKULL*¥ 
LL2ZG REM KKKKKKKHKKHEKE 
1139 DATA 66, 126,219,255, 231,126 
136,69 
11498 PG=2:2N=1:GOSUB 9999 
LLSD REM KEKKKHKKHKKKEHKKHEHEKHHEE 
1169 REM *¥STORE IN ARRAY ’A’* 
LLPRB REM KHHEKKKHKKHKKKHKKHEHEKHEIE 
11898 DIMA(1): GET (9,144)-(7,151), 
A,G 


1199 


RETURN 
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ALIEN INSECT 
Fig. 3.2f 


129 
66 


36 
24 
24 
60 
66 
129 


Listing 3.2f 


1199 
1119 
1129 
1130 
129 

1149 
1158 
1168 
1176 
1189 
A,G 

1198 


REM XXKXKEKKHKKEKE 
REM XALIEN INSECT¥ 
REM GREE 
DATA 129,66, 36,24,24, 60, 66, 


PG=2:N=1:GOSUB 9990 
REM GR IIEE 
REM ¥STORE IN ARRAY °A’* 
REM III 
DIMA(1):GET(@,144)-(7,151), 


RETURN 
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ALIEN HELICOPTER 


Fig. 3.2g 
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Listing 3.2g 


L119 REM XHXHK KKK K HK HK HEE 
1119 REM ¥ALIEN HELICOPTER* 
L129 REM XHXHK KKK HK HK HK K EH 
1136 DATA 8,8,246,33, 126,126,112 


114 PG=2:N=1:GOSUB 9999 

L158 REM XXIII 
116@ REM ¥STORE IN ARRAY *A’* 
L170 REM XK K HII 
1158 DIMA‘1):GET(@,144)-(7,151), 


1199 RETURN 
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ALIEN INVADER 
Fig. 3.2h 


28 
28 
62 
Lee 
62 
28 
42 
73 
Listing 3.2h 
L1LGH REM HKKKKKHHKHKKRHEEE 
1119 REM *ALIEN INVADER* 
LL2ZG REM KHEKKKHKHHKHHHEHEE 


1139 
73 
1149 
1156 
1169 
1179 
1169 
A,G 
1199 


DATA 26,28,62,127,62,28,42, 


PG=2:N=1:GOSUB 9999 
REM I-III 
REM X¥STORE IN ARRAY ’A’* 
REM KAIRIE 
DIMA(1):GET(@,144)-(7,151), 


RETURN 
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ALIEN BATTLESHIP 
Fig. 3.2i 


Listing 3.2i 


1198 
1119 
1120 
1138 
24 
1149 
1150 
11698 
11798 
1186 
A,G 
1198 


REM KEEKKHKKHKKKKKKEKEE 
REM *¥ALIEN BATTLESHIP* 
REM KEKKKKKKKHKKKEKKEEE 
DATA 6,69,195,153,96,189,24, 


PG=2:N=1:GOSUB 9999 

REM KEEKKHKKKKKKKKEKEKKER 
REM *¥STORE IN ARRAY °A’* 
REM KEEKKHKKKKKKKKKEKKERE 
DIMA(1): GET (6,144) -(7,151), 


RETURN 
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ALIEN CRUISER 
Fig. 3.2) 


16 
186 
124 
16 
56 
124 
36 
16 


Listing 3.2) 


1199 
1119 
1129 
1139 
6,16 
1149 
1159 
1160 
1178 
1159 
A,G 

1199 


REM ¥XXXHXHKHK KEKE 
REM ¥ALIEN CRUISER¥ 
REM ¥XXXHXHKHKKEKEK 
DATA 16, 186,124,16,56,124,5 


PG=2:N=1:GOSUB 9999 
REM XXXII 
REM ¥STORE IN ARRAY ’A’X 
REM IK 
DIMA(1):GET(@, 144) -(7,151), 


RETURN 


ALIEN SPIDER 
Fig. 3.2k 


£28 
66 
36 
30 
1893 
30 
255 
153 


Listing 3.2k 


11GB REM HXHKHK KEKE 
1119 REM *¥ALIEN SPIDER* 

L120 REM ¥XHXKKHEKEKHKEE 

1130 DATA 129,66, 36,99, 189,98,15 
5,153 

114 PG=2:N=1:GOSUB 9999 

L158 REM JGR 
1169 REM ¥STORE IN ARRAY °A’* 
L178 REM JHE 
1168 DIMA(1):GET(@,144)-(7,151), 
A,G 

1198 RETURN 
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ALIEN TANK 
Fig. 3.21 


Listing 3.21 


1199 
1119 
1129 
1139 
,16 

1149 
1159 
1169 
1179 
1180 
A,G 

1199 


REM XHEXEKHEKHEE 
REM *ALIEN TANK* 
REM 4XXHKHEKHEEK 
DATA ©,68,124, 124, 124,84,16 


PG=2:N=1:GOSUB 9999 
REM GRE 
REM *¥STORE IN ARRAY *A’* 
REM GRE 
DIMA(1):GET(O, 144)-(7,151), 


RETURN 
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ALIEN FROG 
Fig. 3.2m 


165 
66 
66 
36 
24 
628 
30 
1293 


Listing 3.2m 


119 REM HXHXKKEKHEKE 

1118 REM ¥ALIEN FROG¥ 

1120 REM XH#XXHKKKHKHEKHRE 

1130 DATA 165, 66,66,36,24, 60,98, 
129 

1149 PG=2:N=1:GOSUB 9999 

L1SQD REM HXHKKHEK HARE K HER EEK 
11690 REM *¥STORE IN ARRAY ’A’* 

LL 7G REM HXKHKK HK HER KK HERE 
1180 DIMA(1):GET(@,144)-(7,151), 
A,G 

1199 RETURN 


All the ALIEN graphics routines simply define a graphics 
character for the alien (for further explanation of this see Chapter 
6). This character will be PUT on the screen at the alien’s 
position. 
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Section 3: PLAYER GRAPHICS. 


This is exactly the same as choosing a shape for the aliens. Any of 
the following routines will define a character for use as the player. 
Each routine is, once again, accompanied by a display to show 
the character’s shape enlarged. Remember that you want the 
player to look different from the aliens. Some shapes might be 
more suitable than others depending on whether you are dodging 
or firing. You also need to take the background into account. Of 
course, it is possible to have a surfer blasting away with fireballs 
over a city skyline but it will look a bit strange. You need to 
choose just one listing from this section and it can be any of the 
fifteen routines presented. 


PLAYER HELICOPTER 

Fig. 3.3a 

o 

SES Savana 

ET | 8 
Q 
246 
33) 
126 
120 
LiZ 

C 0 


Listing 3.3a 


1208 REM JIE 
1219 REM ¥PLAYER HELICOPTER* 
122 REM KKK KEKK KKK KKHEHIKE 
1238 DATA 9,8, 246,33,126,128, 112 


1249 PG=2:N=1:GOSUB 9999 
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LZS5G REM KHHEKHHKKKHHKKHKHEHHKHHEE 
1266 REM *¥STORE IN ARRAY 'B’* 
L27 GB REM KHKKKHHHEKHHEKKHHRHEHEK 
1288 DIMB(1):GET(S,144)-(7,151), 
E,G 
1299 RETURN 
PLAYER TANK 
Fig. 3.3b 
o 
Nt N 
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Q 
Listing 3.3b 
L2ZGDGH REM HKHKKKHKKHKHEE 
1216 REM ¥PLAYER TANK*® 
L2Z2G REM HKHHKKKHHKKHKHE 
1238 DATA 16,16,84, 124,124,124,6 
3.8 
1246 PG=2:N=1:GOSUB 79689 
L25GB REM HXKKHKHHKHHEKHHKHEHE KEE 
1266 REM *¥STORE IN ARRAY ’B’* 
L27GB REM KHEKKKHKHHEKHHEKHHERHEHEHE 
1289 DIMB(1):GET(@, 144)-(7,151), 
B,G 
12°96 RETURN 
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PLAYER SPIDER 
Fig. 3.3c 


129 
66 
36 
38 
189 
308 
255 
153 


Listing 3.3c 


LZOES REM XXKKKKHKKHKKHEK 

1219 REM ¥PLAYER SPIDER*¥ 

1LZZOH REM XXHXKKKKKKHKKKKHKE 

1235 DATA 129,66,356,98,189,98,25 
5,153 

1246 PG=Z2:N=1:GOSUB 9889 

L25G REM XXKHK KKK KH 
1269 REM ¥STORE IN ARRAY ’B’* 
LZ27Q RED XXIII 
1280 DIMB(1):GET(@,144)-(7,151), 
B,G 

1299 RETURN 
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PLAYER FROG 
Fig. 3.3d 


+t o 
onn orn 


129 
38 
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24 
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Listing 3.3d 


REM XE 
REM ¥PLAYER FROG¥ 
REM XK 
DATA 129,90,68,24,36,66,66, 


Qyaaa 


PG=2:N=1:GOSUB 9999 
REM GREE 
REM *¥STORE IN ARRAY °B’* 
REM GI 
DIMB(1):GET(@,144)-(7,151), 


Qanhbhandhr & 


N 


NM HN) oh NN ND 


al Oe ee ee oe a 
QQgVgy 


h< 
Oo @ 0) 


Q 


RETURN 
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PLAYER SKULL 
Fig. 3.3e 


60 
126 
279 
255 
231 
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36 
68 


Listing 3.3e 


12OG REM XHXKKHKHKHEEEK 
1218 REM X¥PLAYER SKULL*¥ 

122O REM XHKHKHKHEKHKEK 

1238 DATA 60,126,219,255, 231,126 
136,68 

124 PG=2:N=1:G0SUB 7009 

1258 REM GGG 
1268 REM ¥STORE IN ARRAY ’B’* 
127 REM AIEEE 
1280 DIMB(1):GET(@,144)-(7,151), 


1299 RETURN 


PLAYER AUTOMOBILE 
Fig. 3.3f 


Listing 3.3f 


Q 
QRaQaQA 


REM FARK 
REM ¥PLAYER AUTOMOBILE* 
REM 3 
DATA @,9,8,128,34, 254,255, 1 


QNe 


PG=2:N=1:GOSUB 9999 

REM KEKEKKEKKKEEEKKEKEKEREE 
REM *¥STORE IN ARRAY ’B’* 
REM KEKKKKKKHEKKEHEKEEEEREEE 
DIMB( 1): GET(®8,144)-(7,151), 


NNNNN ON NN 
QBRHQAR 


QO No Ob 


N< 
wv 
Q 


ROR RR Re Qe Re 


RETURN 
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PLAYER AIRPLANE 
Fig. 3.3g 


Fig. 3.3g 

L2DD REM KEEKKHKHHHKHKHHHEK 

12198 REM *¥PLAYER AIRPLANE* 

L2Z2GD REM KHKKKHKHKHHKHHKHHREK 

1238 DATA 8,8,8,28,62,127, 127,8 
1249 PG=2:N=1;GOSUB 9999 

L25G REM KEKEKHHKKHHEKHHHHRHEHEHE 
1260 REM *¥STORE IN ARRAY ’B’* 
L2AZPSG REM KEEKHHKKHHKHHHHEHE HEHEHE 
1268 DIMB(1):GET(@,144)-(7,151), 
B,G 

12998 RETURN 


PLAYER FLY 
Fig. 3.3h 


36 
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Listing 3.3h 


L2G REM HXHXKKHKHKKK 

1219 REM *¥PLAYER FLY* 

LZEO REM XXXKKKKKKHKKE 

1238 DATA 36,24,60,90,153, 153,16 
5,195 

1249 PG=2:N=1:GOSUB 9999 

LPS HB REM IIE 
1268 REM ¥STORE IN ARRAY *B’* 
L127 REM II 
128@ DIMB(1):GET(@, 144) -(7, 151), 
B,G 

1298 RETURN 
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PLAYER BATTLESHIP 
Fig. 3.3i 


193 
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255 
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24 

60 
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126 


Listing 3.31 


1269 
1219 
1229 


2398 


REM FGI 
REM ¥PLAYER BATTLESHIP* 
REM JHE 
DATA 153,152,255,153,24,60, 


126,126 


1249 
1259 
1269 
1276 
1238 
BG 

1279 


PG=2:N=1:GOSUB 7999 
REM GG IE 
REM ¥STORE IN ARRAY ’B’* 
REM GI 
DIMB(1):GET(@, 144)-(7,151), 


RETURN 


65 


PLAYER COWBOY LEFT 
Fig. 3.3] 


216 


Listing 3.3) 


REM FI 
REM ¥PLAYER COWBOY LEFT* 
REM FAI 
DATA @,24,68,24,216,56,208,5 


Noho 


Anra 
Qaaa 


PG=2:N=1:GOSUB 9999 

REM KKKKKKKKKKHHHHHEHEEE EE 
REM *STORE IN ARRAY ’B’* 
REM KKEKKKHK KEKE 
DIMB(1):GET(9O, 144)-(7,151), 


ot: a rd 
Nm NM hh 
Out 
QRaeagaa 


he 


YOO. 
Q 


RETURN 
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PLAYER COWBOY RIGHT 
Fig. 3.3k 


24 
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Listing 3.3k 


1299 
1219 
12296 
1238 


2 
t=} 


1249 
1256 
1268 
1276 
12380 
B,G 

1290 


REM FIRE 
REM ¥PLAYER COWBOY RIGHT* 
REM HEIR 
DATA 24, 60, 24, 27,28, 24,24,2 


PG=2:N=1:GOSUB 9990 
REM III 
REM ¥STORE IN ARRAY ’B’* 
REM III 
DIMB(1): GET (@,144)-(7,151), 


RETURN 
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PLAYER FIELD GUN 
Fig. 3.31 


i) 

2 

36 

24 

16 

124 

218 
Listing 3.31 
L2GS REM KHEKKKHKHHKHHKHKRHEE 
1219 REM *PLAYER FIELD GUN*® 
L22G REM KHEKKHKHHHEKHHKRHKEHEE 
1236 DATA 6,1,2,36,24,16,124,218 
1248 PG=2:N=1:GOSUB 9999 
L25GD REM KEKKHKHEHHHEKHHKHHKEHEEE 
1266 REM *STORE IN ARRAY ’B’* 
L277 REM KHHKKHKHHEKHHKEHKHEHHEEE 
1289 DIMB(1):GET(9,144)-(7,151); 
B.G 
12998 RETURN 
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PLAYER SKIER 
Fig. 3.3m 


Listing 3.3m 


1208 
1219 
1229 
1238 
2 
1249 
1259 
1269 
1279 
1238. 
B,G 
12°99 


REM 4#XKXXKHKKKEKEK 
REM ¥PLAYER SKIER¥ 
REM ¥XKXKHKKKHEKHEE 
DATA 16,32,249, 18,68,8,16,3 


PG=2:N=1:GOSUB 9999 
REM XXHXKEKEK IKK KIKI 
REM ¥STORE IN ARRAY °B’* 
REM XXHX KEKE KIKI KIKI 
DIMB(1):GET(@,144)-(7,151), 


RETURN 


PLAYER SURFER 
Fig. 3.3n 


124 
144 


Listing 3.3n 


1200 
1216 
1226 
123 

5.64 
1249 
1259 
1265 
1276 
126@ 
B,G 

1295 


REM KHKKKKKEKKKKHERE 
REM *PLAYER SURFER* 
REM KKKKKKKKEREKKKE 
DATA 16,124,144, 16,46,386,25 


PG=2:N=1:GOSUB 9999 

REM KKKKKKKKHKKEKKKKKEER 
REM *STORE IN ARRAY ’B’* 
REPL KXEKKKKKKKKEKKKEKKREER 
DIMB(1) :GET(9,144)-(7,151), 


RETURN 
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PLAYER SAND YACHT 
Fig. 3.30 


Listing 3.30 


1LZOI REM IKI III 
1219 REM ¥PLAYER SAND-YACHT* 
1220 REM III 
1238 DATA 16,24,28,30, 16,254,65, 
g 

1249 PG=2:N=1:GOSUB 9998 

1258 REM JOGA 
1268 REM ¥STORE IN ARRAY °B’* 
1276 REM 3H 
1288 DIMB(1):GET(@,144)-(7,151), 
B,G 

12998 RETURN 


Allthe player graphics routines simply define a character for the 
player (for further explanation of this see Chapter 6). This 
character will appear on the screen at the player’s position. 
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Section 2: BACKGROUNDS 


All the following routines set up a background scene against 
which your game will be played. This is fairly important, 
especially when it comes to dodging games. A skier switching 
back and forth through the pines whilst dodging spiders is going 
to havea harder time than one on a totally black background with 
no stationary objects to avoid. You need to choose just one of 
listings 3.4a to 3.4h, plus any of listings 3.41, 3.4j and 3.4k 
according to whether or nor you want to display SCORE, AMMO 
and FUEL information. One more point to note is that each listing 
includes line 25 from the initialisation section of the program, 
which sets or resets the flag variable NV. This is an INVERSE flag 
and it swaps the foreground/background colours. These are 
normally white on black, but if we want a ski-slope, for example, 
then we obviously want the background to be white, not black. 
This flag also ensures that the characters are coloured the right 
way round. We will say more about this in Chapter 6. Each of the 
listings, apart from the first (totally black), is accompanied by a 
black and white representation of an example scene produced by 
that listing. This should help you decide which one to use. 


TOTALLY BLACK 
Listing 3.4a 


25 NV=o 

LIGHT REM KEKKKKKKKEKKKKKEE 
1395 REM * TOTALLY BLACK *¥ 
L3LD REM KHHKKKKKKKK KKK 
1359 PMODE4,1:PCLSNV:SCREENI,1 
1399 RETURN 
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SEA-SCAPE 
Fig. 3.4b 


Listing 3.4b 


25 NV=1 


1398 
1395 
1319 
1315 
1328 
1336 
1349 
U,G 

1358 
1369 
1378 


REM XXXHKHKKHEKEKH 

REM * SEA-SCAPE * 

REM XEXHKKKKEKEKH 

IF GM>@ THEN 1359 
PG=2:N=1:GOSUB 9999 

DATA ©,08,0,8,8,28,98,129 
DIMU(1):GET(@,144)-(7,151), 


PMODE4,1:PCLSNV: SCREENI,& 
FOR Q=9 TO 25 
X2=RND (32) *8-8: Y2=RND (22) *8 


-B:PUT(X2,Y2) -(X2+7, Y2+7) ,U,PSET 


1389 
1399 


NEXT @ 
RETURN 


DESERT 
Fig. 3.4c 


Listing 3.4c 


25 NV=1 


1308 
1385 
1319 
1315 
1329 
133 
4 
1349 
U,G 
13598 
1369 
1378 


REM XXXKKHKEKH 

REM * DESERT * 

REM H#XHXKEKKHKK 

IF GM>@ THEN 1359 
PG=2:N=1:GOSUB 9990 

DATA @,16,18,26,94,88,120,2 


DIMU(1):GET(@, 144)-(7,151), 
PMODE4, 1: PCLSNV! SCREEN ,& 


FOR @=@ TO 25 
X2Z2=RND (32) *8-8: Y2=RND (22) ¥8 


-8!PUT (X2,Y2)- (X24+7,Y2+7) ,U,PSET 
1388 NEXT @ 


1379 


RETURN 
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SKI SLOPE 
Fig. 3.4d 


Listing 3.4d 


25 NV=t 
13 REM XXX XKHKKKKK HEH 

1305 REM * SKI-SLOPE ¥ 

1B1LG REM XXXHKHKKKKKHEK 

1315 IF GM>@ THEN 1359 

1328 PG=2:N=1:GOSUB 9999 

1338 DATA 16,56,56, 124,124, 254,2 
54,16 

1348 DIMU(1):GET(@,144)-(7,151), 
U,G 

1350 PMODE4,1:PCLSNV:SCREEN1, 1 
1369 FOR @=@ TO 25 

1378 X2=RND(32)*8-8: Y2=RND (22) *8 
-8:PUT(X2, Y2) - (X2+7,Y2+7) ,U,PSET 
1388 NEXT @ 

1398 RETURN 


LARGE STARS 
Fig. 3.4e 


Listing 3.4e 


25 NV=0 


1368 
1305 
1319 
1315 
1326 
133 

AL SZ 
1349 
U,G 

1356 
1368 
1378 


REM XXXKE KKK 

REM * LARGE STARS * 

REM 4XHXKEKI HIE 

IF GM>@ THEN 1359 
PG=2:N=1:GOSUB 9990 

DATA 145,82,52,31,248, 44, 74 


DIMU(1):GET(@,144)-(7,151), 
PMODE4, 1:PCLSNV:SCREEN1, 1 


FOR @=@ TO 25 
K2Z=RND (32) ¥8-8: YZ=RND (22) 8 


-8:PUT(X2,Y2) - (X2+7,Y2+7) ,U,PSET 


1380 
1390 


NEXT @ 
RETURN 


76 


SMALL STARS 
Fig. 3.4f 


Listing 3.4f 


25 NV=6 


1399 
13985 
1319 
1350 
1369 
1378 
=9)) 

1380 
1399 


REM HXKKKKKKKRKKKKK 

REM * SMALL STARS * 

REM KKKKKKKKKKKKERE 
PMODE4,1:PCLSNV: SCREENI,1 
FOR Q@=98 TO 25 
PSET(RND(255) ,RND (175), - (NV 


NEXT @Q 
RETURN 
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NIGHT SKYLINE 
Fig. 3.4g 


Listing 3.4g 


25 NV=o 

1309 REM FARE 

1395 REM * NIGHT SKYLINE * 

1310 REM HHH 

1315 IF GM>@ THEN 1359 

1320 PG=2:N=1:GOSUB 9999 

13230 DATA 255,171,255,181,255,21 
3,255,181 

1348 DIMU(1) :GET(9,144)-(7,151), 
U,G 

1359 PMODE4,1:PCLSNV:SCREEN1, 1 
1369 FOR @=9 TO 248 STEP 8 

1365 FOR Y= TO (RND(3)-1)*8 STE 
PF 8 

1370 PUT(Q,169-Y)-(Q+7,167-Y) ,U, 
PSET 

1389 NEXT Y:NEXT @ 

1399 RETURN 


78 


CITY SKYLINE 
Fig. 3th 


Listing 3.4h 


25 NV=t 
13SBI REM XXX KKKHK KKH KK HEE 

1395 REM ¥ CITY SKYLINE ¥ 

LSID REM XXXKKKHK KKH KKHEK 

1315 IF GM>@ THEN 1359 

1320 PG=2:N=2:GOSUB 9999 

1338 DATA 2,2,3,58,179,25,255,25 
5,3,8,62,62,255, 255, 255, 255 

1349 DIMU(1):GET(9,144)-(7,151), 
u,G 

1345 DIMT(1):GET(8,144)-(15,151) 
17,6 

1350 FMODE4, 1:PCLSNV: SCREENI, 1 
1369 FOR G=G TO 248 STEP 16 

1379 PUT(Q, 169)-(@+7,167),U,PSET 
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1375 PUT (Q+85,169)-(Q+15,167),.T,.P 
SET 

1369 NEXT @ 

1599 RETURN 


The background routines select PMODE4 with graphics pages | to 
4 onscreen. They then clear the screen to the background colour 
(which depends on the setting of the NV flag). In the first routine, 
listing 3.4a, this is all that is required. For the rest of the routines 
a character for a suitable object is defined (for further explanation 
of this see Chapter 6). This object is then PUT on the screen in 
various random positions. (see Chapter 10). Listing 3.4f differs 
from this general pattern by merely PSETing points at these 
random positions instead of PUTting a character each time. 
Listings 3.4g and 3.4h do use characters but use special methods 
of determining the positions where these will be PUT to achieve 
the desired effect in each case. These routines are examined 
separately and in greater detail, in Chapter 4. 

The last three listings PUT the status headings on the screen by 
way of the PUTSTRING routine — this will be more fully explained 
in Chapter 5. 


Section 5: START/RESTART. 


This routine is not optional. We always need to have this routine 
exactly as listed. This ensures that all the variables which might 
be used later on are initialised whether our game takes any 
account of them or not. 


Listing 3.5 
L4SH REM KHHKHKHKKH HEHEHE 


1495 REM *¥SET UF AND RESTART* 
L41LG REM KHEKKKKKKKKKEKKKKHRKEE 
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1420 ALIENS=19:REM *¥NO. OF ALIEN 
S* 

143 SCORE=9:REM ¥SET SCORE TO Z 
ERO* 

1449 AMMO=19:REM ¥SET LASERS TO 
FULL¥ 

1459 FUEL=19:REM ¥SET FUEL TO FU 
LL* 

1468 PY=163:PX=120:REM *¥START PO 
SITION OF PLAYER¥ 

1479 IF F=@ THEN PY=8:REM ¥CHANG 
E POSITION FOR DODGING GAMEX 
1475 GET(PX,PY)-(PX+7,PY+7),PB,G 
PUT (PK,PY) -(PX+7,PY+7) ,B,PSET 
1480 DD=1:P=O:F IN=0 

1496 “P=PX!YP=PY 

1495 RETURN 


This routine essentially simply initialises all the variables used 

in the game. For greater detail of what the variables are actually 
used for see Appendix One. The number of AIL.JENS is set to 10, 
your SCORE is set to zeroand youare given 10 units of AMMO and 
FUEL. These variables must always be set to some starting value 
even if they’re not used by the game. 

PX and PY are the horizontal (x) and vertical (y) co-ordinates on 
screen of the player’s character and these must be set to some 
initial values. For firing games you start off at the bottom of the 
screen with PY= 168 (we leave some space at the bottom for scores, 
etc.), and with PX= 120 which is about halfway across. If the game 
is not a firing game you start at the top of the screen instead, with 
py=s. Your character is now PUT on to the screen at its initial 
position, but first the bit of scenery at the position is stored in the 
array PB (for player background) with the GET instruction. This is 
so that we can PUT the scenery backagain when you move. To do 
this we need to know where the player was before he moved, so 
we store a copy of the player’s old position in the variables XP and 
YP (the reverse of PX and PY). 
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Finally we set the flags that indicate whether a new alien is 
required and whether the end of the game has arrived. To do this 
we set DD (for dead) to 1 and set FIN to 0. (The French is because 
END is a special BASIC word for the DRAGON computer, so we 
cannot use it as a variable.) We also need to reset the counter 


which tells us how many aliens have got past, so we set P equal to 
0. 


Section 6: MOVE/FIRE. 


Wemust have the first, main routine from this section in our 
program. If you allowed LEFT & RIGHT movement then you will 
need to add listing 3.6b. Similarly listing 3.6c must be added for 
UP & DOWN movement. Don’t worry if you have only allowed, 
say, LEFT movement in the instructions. Just add the section for 
both LEFT & RIGHT and you will find that only LEFT movement is 
actually enabled. If you have chosen HYPER-drive as a mode of 
movement than you will need to add listing 3.6d. 


Listing 3.6a 


15SOG REM KHKKKKHEKHEEK 

1562 REM *MOVE & FIRE* 

1505 REM HHXKHEKEKHEEK 

1516 IF DD=96 THEN 1549 

15290 DD=9 

1530 AY=3:AX=RND (32) ¥6-8: XA=AX 
1535 REM **MOVE ALIENX* 

154@ IF AY<>S THEN PUT(XA,AY-8) - 
(KA+?,AY-1),AB,PSET 

1545 GET(AX, AY) -(AX+7,AY+7) ,AB,G 
TPUT (AX, AY) — (AX+?,AY+7) ,A,PSET 
1550 MA=AX!AY=AY+6:IF AY=168 THE 
N DD=1:P=P+1: ALIENS=ALIENS-1 
1555 IF DD=1 THEN PUT(NA,AY-8) -( 
NA+?7,AY-1),AB,PSET 
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1568 AX=AX+6*% (RND(3)-2) 
1565 IF F=@ AND AX>PX THEN AX=AX 
-6:G0TO 1580 

1578 IF F=@ AND AX<PX THEN AX=AX 
+6:G0TO 1568 

15680 IF AXx<@ THEN AX=6 

1598 IF AX>248 THEN AX=246 

1595 REM ¥XHXKXHKKEKEKHEK 

1576 REM ¥ MOVE PLAYER ¥ 

1599 REM ¥XXXHXHEKEK KEKE 

1608 AS=INKEYS 

1630 IF PX<@ THEN PX=0 

1635 IF PY<@ THEN PY=0 

1649 IF PX>248 THEN PX=246 

1645 IF PY*168 THEN PY=168 

1658 IF PY=YP AND PX=XP THEN 168 
g 

1668 PUT (MP, YP) ~-(XP+?, YP+?) ,PB,P 
SET 

1678 GET(PX,PY)- (PX+?7,PY+7) ,PB,G 
IPUT(PX,PY)-(PX4+?7,PY+?) ,B,PSET 
1675 YP=PY:XP=PX 

1688 K=@:IF F=1 AND AS="@" THEN 
K=1 

1698 RETURN 


The routine below allows LEFT or RIGHT movement providing 
that the INSTRUCTIONS enable such movement. 


Listing 3.6b 


1596 REM * LEFT & RIGHT * 

1692 REM *¥LEFT AND RIGHT¥* 
1695 IF L=1 AND AS=CHRS(S) THEN 
PX=PX-2 

1619 IF R=1 AND AS=CHR#(9) THEN 
PXSPA+S 


83 


This routine allows UP or DOWN movement providing 
that the INSTRUCTIONS enable such movement. 


Listing 3 .6c 


1597 REM ¥ UP & DOWN ¥* 
1612 REM ¥XUP AND DOWN¥* 

1615 IF U=1 AND AS=CHRS(94) THEN 
PY=FY-8 

1620 IF D=1 AND AS=CHR$(15) THEN 
PYSPY43 


This next routine allows HYPER-space movement providing that 
the INSTRUCTIONS enable such movement. 


Listing 3.6d 


1622 REM ¥*HYPER JUMPSX¥ 
1625 IF H=1 AND AS="H" THEN PX=8 
¥RND( 31): PY=S¥RND (21) 


The routine to control movement and firing is quite long and 
performs several different tasks, so let’s look at them in order. 
Firstly it checks whether a new alien is required (if the previous 
one is dead — DD=1 — then we do need one). If we do start a new 
alien then we must initialise the horizontal (x) and vertical (y) 
screen co-ordinates for the alien. We set RY equal to 8 and RX 
equal to a random multiple of 8 between 8 and 248. As with the 
player we will need to remember the position of the alien so we 
copy AX into XA. We do not need to remember the y co-ordinate 
because it will always 8 less than the current y co-ordinate. Now 
we set the flag to show that the alien is not dead (DD=0). 

By now we havea live alien on our hands (well, on the screen 
anyway) so we want to move it. We first PUT back the 
background (array AB) over the alien to erase him from his old 
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position, and then we GET the background for his new position, 
before PUTting the alien at his new position. We must now 
calculate the next position for our alien. We add 8 to AY to move 
him down the screen. At this point we test whether he has 
reached the bottom of the screen (AY=168). If he has, then he got 
past us, so we add one to P (the past variable), and declare that 
alien dead (DD= 1). We also take one of f the number of aliens left 
(ALIENS= ALIENS-1). If the alien is dead then we PUT back the 
scenery on top of him to erase him (or bury him). 

Assuming he’s not dead we would like our alien to move from 
side to side as he descends. If it’s a dodging game (not a firing 
game, so I*=0) we want the alien to move towards us so we test 
which side of your x position (PX) he is and alter AX accordingly. 

If he is directly above you, or if it a firing game, then we will 
alter his horizontal position by onc either side at random. Having 
changed the alien’s position we check that he hasn’t gone off the 
side of the screen and reset AX if he has. (Some funny things 
happen if you try to PUT off the screen.) 

Now we come to moving the player. It is at this stage that we 
will encounter some of the lines from the other listings when they 
have been added. Ifa particular sort of movement is allowed we 
check to see if the appropriate key is being pressed and then alter 
PX or PY accordingly. If HYPER-space is included and the H key 
has been pressed then we choose new values for Px and Py at 
random (again in multiples of 8). Once again we must check that 
the new co-ordinates are still on the screen and reset them if they 
are not. Finally we PUT back the background (array PB) at the 
player’s old position, GET the background at his new position, 
and PUT the player at the new position. Note that we do not do 
this if the player has not moved since the last time around. This is 
to prevent the player graphic from flickering when stationary. 

The final action in this section is to check the FIRE button. If 
this key has been pressed then we set the flag K to ! to indicate 
that a shot is to be fired. 
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Section 7: DETECT A HIT 


This routine can have two completely different forms. This 
depends on whether we are playing a firing game or a dodging 
game. In the latter case what we need to detect are collisions 
between the player and other objects. These objects may be 
background objects or aliens. The first routine (listing 3.7a) in 
this section deals with the detection of this sort of collision and 
should be used if yours is a dodging game. 

If we are playing a firing game then we might need to move a 
missile up the screen and see if this hits any alien. For this type of 
game we can pick either of the other two routines in this section 
(listings 3.7b or 3.7c). These shoot bullets and lasers respectively. 
Later, in Chapter 6, we will add another two routines to our 
selection which shoot bombs and fireballs, but these will have to 
wait until we have some techniques under our belts. 


Listing 3.7a 


17OB REM KXKKKHKK HEHEHE 
1781 REM ¥CHECK FOR HIT* 

1702 REM ¥ DODGING GAME* 

1L7OS REM ¥XHXKKKHKKKKKHHEE 

1718 HIT=9 

728 PMODES,2:N=255*¥NV 

1738 PUT(G8,144)-(7,151),PB,PSET 
1749 FOR Y=7688 TO 7994 STEP 32 
1759 IF PEEK(Y)<>N THEN HIT=1 
1768 NEXT ¥ 

1778 PMODE4,1 

1798 RETURN 


Listing 3.7b 


L?POD REM HEKKKKHKKKKKKKE 
1781 REM ¥CHECK FOR HIT*¥ 
1762 REM * BULLET * 
POS REM KHHKXHKKHKHKKHKKE 
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1719 HIT=9:IF K=@ THEN 1799 
1715 SOUND199,1 

1720 BX=PX+3:BY=167 

1725 PSET(BX,BY,- (NV=9) ) 

1738 BY=BY-4 

1735 PSET(BX, BY, - (NV=9) 

1749 PSET<(BX,BY+4,NV) 

1745 IF XA=PX AND AY/8=INT(BY/8) 
THEN HIT=1:GOTO 1755 

1759 IF BY>11 THEN 1739 

1755 PSET(BX, BY,NV) 

1798 RETURN 


Listing 3.7c 


17GB REM XXHXHKK KKK KKK KH 
1761 REM ¥CHECK FOE HIT¥ 

1702 REM ¥ LASER ¥ 

1L7BS REM HXXKKHKKHKKKHEK 

1719 HIT=@8:IF K=@ THEN 1799 

1715 SGUND199,1 

1728 BX=PX+3:BY=167 

173@ COLOR(1 AND NV=9), 1:LINE(BX 
, BY )-(BX,8) ,PSET 

1745 IF BX?xXA-1 AND BX<XA+8 THEN 
HIT=1 

1755 COLORNV, 1:LINE(BX, BY) -(BX,8 
),PSET 

1798 RETURN 


The first routine in this section works by examining the 
background underneath the player. This is stored in the array PB. 
There is no easy direct way of examining an array which has 
been used with GET, so what we do is to PUT the array onto the 
hidden screen (PAGE 6) and then examine that part of the screen 
for any foreground colour. If we find any then obviously the 
player has hit something. 
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The second routine in this section first checks to see if the fire 
key was pressed (when we will have K= 1). If it was, a bullet is 
fired, starting with a bleep noise, up the screen. The position of 
the dot is tested against the alien’s position to see if it has hit him. 
If it hasn’t it keeps going until it gets to the top of the screen. If it 
hits the alien the flag HIT is set to 1. 

The third routine (listing 3 .7c) checks whether the fire key was 
pressed and, if so, fires a laser using the |.NE command. This is 
accompanied by a bleep. The horizontal position of the laser is 
checked against AX and if the two coincide then HIT is set to 1. 


Section 8: EXPLOSIONS 


This section will be called from the control program only if a HIT 
has occurred. In this section we wish to make some sort of noise 
and possibly give a visible signal to indicate that this has 
happened. You may choose any of the first ten routines (listings 
3.8a—j), as your main routine for this section. It is very 
important to remember, whichever one of these you choose, that 
listing 3.8k must also be added if you have a FIREing game. This 
routine will wipe out the dead alien. 


Listing 3.8a 


REM KXXKEKKKEEE 
REM *EMPLOSION* 
REM * BURBLE ¥* 
REM HXHKKKKEKEE 
Fs="TS902L1 2AGBEDFADFH": FS= 


RR eee 
00008 
KFQQaQgg 
aanea 


1626 PLAY FS 
1699 RETURN 


88 
Listing 3.8b 


SIT REM HHKKKKKKHHHKEE 

1s@1 REM * EXPLOSION * 

1692 REM * TRILL * 

LEGS REM HHHKKKKKKHHKKE 

1619 FS="TAISPOSLL2CFHCFHCFRCF RCE 
HCFHCFHCFR” 

1626 PLAY FS 

is?9 RETURN 


Listing 3.8c 


SSAA REM HHHXHHHKKKHHH 

16961 REM XEXPLOSION* 

1682 REM * HIT * 

1SGS REM KKKHKKKKKKKK 

1519 FS="TISGOILIGGFHFEDHDCHC” 
1823 PLAY FS 

se9 RETURN 


Listing 3.8d 


REM HHKKKKKKEKKKEE 
REM * EXPLOSION *¥ 

REM *¥START AGAIN*® 

REM HHKKKKKKKKKEE 
F$="TSOSL6GEL1SAL4GE" 
PLAY FS 

RETURN 


RRR RR 
3 09 M 0) 0) 0 0) 


OQhe BRQRQA 
BQoaunra 


ed 


Listing 3.8¢ 


LEO REM KEKKKHKKKKKHKE 
1661 REM * EXPLOSION *¥ 
1692 REM *¥ALIEN FIRED* 
1SHS REM HEKKKHKKKKKHEK 


1619 


FS="TISGO4_SCCHDDHEFFHGFRFE 


D#DCHC” 


1829 
1899 


PLAY FS 
RETURN 


Listing 3.8f 


1399 
1s961 
1662 
1895 
1819 
1829 
189° 


REM KKKKKKKKKKEEE 

REM * EXPLOSION * 

REM * RASPBERRY * 

REM KEKKKKKKKKKEE 
FS="TSSOLL4CFHCFHCFHCFHCFH"” 
PLAY FS 

RETURN 


Listing 3.8g 


REM KHKKKHKHKHKKEE 
REM * EXPLOSION * 
REM * FLASH * 
REM KHKKKHKHEHHHHEHEE 
FOR Q=1 TO 18 
SCREEN1, 9: SOUNDI59, 
SCREEN1,1:SOUND1 99, 
NEXT Q 

RETURN 


Listing 3.8h 


13569 
1661 
1892 
16965 
1819 

6298 
issg 
1899 


REM KKEKKKKKKKKKEK 
REM * EXPLOSION * 
REM * BLIPS * 
REM KKKKKKKKKEKEEE 
FOR Q=1 TO 5 
SOUND1I969+RND(199),1 
NEXT @ 

RETURN 
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90 
Listing 3.81 


1BGG REM KKKKKKKKKKKKE 
18691 REM * EXPLOSION * 
1692 REM * BLIP * 
1LEBS REM KEKKKKKKKKKEK 
1819 FOR @=1 TO 5 

182@ SOUNDIS59,1 

1846 NEXT Q 

1899 RETURN 


Listing 3.8) 


1LEDD REM KHXKKKHKHHKEK 

1891 REM * EXPLOSION * 

1632 REM * ISTREN * 

LEGS REM KHKKKKKKKKKKK 

1816 FOR Q@=1 TO 5 

1615 FOR V=198 TO 139 STEP 5 
1829 SOUND‘, 1 

S25 NEXT ¥ 

1539 FOR Y=136 TO 199 STEP -5 
1635 SOUNDY,1 

1349 NEXT ¥ 

1658 NEXT & 

18?7@ RETURN 


This routine must be added if there is FIREing in your game. 
Listing 3.8k 

1889 IF F=1 THEN PUT (XA, AY-8) -(X 
A+7,AY-1),AB,PSET: DD=1: ALIENS=AL 


IENS-1 


All the routines in this section use either the SOUND or PLAY 
command to produce the noises. PLAY is the more versatile by far 
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of these two commands and is hence used most of ten, but SOUND 
can still be very effective for certain effects. 

The routine 3.8k simply PUTs back the background over the 
alien toerase him when he has blown up. It then sets the flag DD 
to 1 to tell the move routine to start a new alien, and finally, takes 
one off the number of ALIENS left. 


Section 9: SCORE ROUTINES 


If you have HIT an alien there is obviously the question of how 
much was SCOREd. Well, these routines are fairly simple and give 
you the choice of SCOREing one, five or ten points for each alien 
you HIT. If yours is a dodging game then you will not want to 
SCORE at all so use the first routine (listing 3.9a). Otherwise you 
can pick any of the other routines from this section. 


Listing 3.9a 


1L7PODS REM KKKKKKKKKKKKKKEEEK 
1991 REM *¥SCORING ROUTINE* 
19g2 REM * NOT USED * 
17GS REM KKKKKKKKKKKKKEEEEK 
1996 RETURN 


Listing 3.9b 


REM KEKKKXHKKKEKKKKES 
REM ¥SCORING ROUTINE* 
REM * LF OUNCT. * 
REM KEKEKHKKKK 
OF F=f THEN 1999 
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Listing 3.9c 


LPAZ REM KEKKKHXLKKKKHEKHEERE 
£991 REM X¥SCORING ROUTINE* 
1992 REM * S POINTS * 
LPSD REM KEEKKKHKHKKKEKKEE 
119 IF HIT=@ OR F=@ THEN 1999 
192@ SCORE=SCORE+S 

POSS FET 


K 


Listing 3.9d 


LPDA REM KKEKKKKKHEKKKKKEKEEEEE 
19982 REM *¥SCORING 18 POINTS* 
LPBS REM KKEKKKKKHKKHEEEEEEEEE 
1919 IF HIT=@ OR F=@ THEN 1999 
1920 SCORE=SCORE+19 

1999 RETURN 


All the routines in this section (except 3 .9a) check tosee if you 
are playing a FIREing game and whether you just scored a HIT on 
an alien. If you did then the required number of points are simply 
added to your SCORE. 


Section 10: FUEL AND AMMUNITION 


Insome games you can fail your mission because of lack of FUEL 
or AMMO. If you do not wish toalterthe quantities of either of 
these then you can select just the first routine from this section. 
If, however, you wish to alter the quantity use listing 3.10b and 
add the appropriate listings from the rest of this section. Note 
that you can only choose one out of each of the pairs of routines 
(listings 3. 10d and 3.10e for AMMO and listings 3.10g and 3.10h 
for FUEL) for increasing the quantities, since these occupy the 
same line numbers. 


Listing 3.10a 


REI XE HHH HHH KKK KKK KEK HEHEHE 
REM *¥FUEL AND AMMUNITION® 
FEM * NOT USED * 
LIDS REM HHKKHKKKHKKKKKKKKKKKKKEE 
2699 RETURN 


JW th bh 
Da DR 
a9 % 
wh) & 


Listing 3.10b 

LITT REM KHEHKKKKHHHKHHK HHH KKK HH 
2661 REM * * 
2082 REM * FUEL AND AMMUNITION ¥ 
2693 REM * * 
ZOGBY REM KHEHHKKKKHHHKKHKHHK HEHEHE 
206998 RETURN 


Listing 3. 10c 


FEM KEKKKKE EKER 
REM ¥DECREASE AMMO 
FEL KEKLHKKKEKEKKEE 
IF K=1 THEN SMMO=AMMO-1 


REM ERE KERRKKKKEREK 
REM #INCREGSE AMMOX 
FEM KEK KEKE KKKEKKKEE 
TF HIT=1 THEN AMMO=AMMO+ 1 


Listing 3.10e 


REM KHKKKKKEKKEKKKKE 
REM ¥* DOUBLE AMMO * 
REM HX KHKKKKKKKKHKHKE 
IF HiT=1 THEN AMMO=AMMOXZ 
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94 
Listing 3.10f 


2OIZ7 REM KHKKKHKKEKKKREEEE 
2038 REM * DECREASE FUEL * 
ZOSP REM KHKKKHKKKKKKKEERE 
2049 IF K=1 THEN FUEL=FUEL-1 


Listing 3.10g 


LOAF REM KHKKKKKKKKKKERE 
2942 REM *#INCREASE FUEL* 
2OGP REM KKK 
2026 IF HIT=1 THEN FUEL=FUEL+1 


Listing 3.10h 


2O47 REM KKKKKKKKHKKHEEK 
2648 REM * RESET FUEL * 
2O4IP REM KKEKKKKKKKKKKKE 
2859 IF HIT =1 THEN FUEL=19 


The routines for decreasing FUEI.or AMMO check whether the 
fire key was pressed and take off one unit per shot. The routines 
for increasing FUEL or AMMO check whether you scored a HIT 
and if you did they can add one unit, double the number of units 
left, or reset the quantities to full. 


Section 11: STATUS & DISPLAY 


Afterall the excitement so far with explosions, lasers blasting 
away and your SCORE rapidly rising we need to make sure the 
relevant information is displayed on the screen. Of course if you 
have been peacefully dodging a plague of flies in the desert you 
won't need to display anything but you must still put a routine 
into this slot. For a dodging game use listing 3.1 la. For a FIREing 
game start with listing 3.11b, which will display the SCORE. If 
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your game includes a varying supply of FUEL or AMMO then add 
either listing 3.1 1c or 3.11d. 


Listing 3.1la 


REM ¥XHHKKKKHHHKKKEEK 
REM ¥STATUS DISPLAY * 
REM * NOT USED * 
REM KEXKKEKKKEKKEKKRRKRE 
RET IRN 


Bee 
SQQO 


ane 
a) 
Q 


NaN © 


Non bh NN 


Listing 3.11b 


ZIG REM KEKKKKKKKKKKKKEKEK 
2192 REM *¥STATUS DISPLAY * 


2193 REM * * 
ZIGD7 REM KRKKKKKKKKKKKKEEEE 
211g * 


ZLLP REM KKEKKKKKKKKEKRKRE 

2116 REM *DISPLAY SCORE* 

ZLLF REM HHRKKKKKKKKKKEE 

2128 PS=STRS(SCORE) +" "2: XS=144:Y 
S=176:GOSUB 9999 

2196 RETURN 


Listing 3.11c 


Q 


1 KRKKKKEKKEKKEKKE 
REM *¥DISPLAY AMMCX 

REM XHXXHKKKKEKKKEK 

O FP=STRS(AMMO) +" "EMS=4OrYS= 
:GOSUB F930 


re) fh NF 


Listing 3.11d 


ZLSZP REM HEKKKKKKKKKEKEK 

2156 REM *¥DISPLAY FUEL*® 

ZLSP REM KEKKKKKKKKHKHKK 

2149 PS=STRS(FUEL) +" "2 XS=224: YS 
=176:GOSUB 7999 
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These routines are quite straightforward. They convert the values 
in question into strings and pass them, along with their required 
screen positions, to the PUT STRING routine. The screen positions 
are carefully arranged to ensure that messages do not overlap 
even if they are all being used. 


Section 12: CHECK FOR END OF GAME 


In this section we provide all the checks that see whether we have 
reached an end of game situation. If any of these checks are found 
to be true then we must set the flag FIN to 1. This will signal to 
the control program that it is time to stop playing the game and 
move on to the end of game display routine. If FIN is zero the 
control program will go back to the MOVE/FIRE subroutine. From 
this section we need to type in the main routine (listing 3.12a) 
and at least one of the remaining five routines. After all, we want 
to stop the game sometime! 

The first of the checks (listing 3.12b) is on whether the number 
of ALIENS is down to @: This could be used in a dodging game, 
for instance, where you win if you managed to dodge ten aliens. 
For a dodging game you will also need to test for a collision with 
listing 3.12c. 

You might decide that you lose if more than 3 aliens get PAST 
and over-run your base. This could be tested for by adding listing 
3.12d. 

The final two listings deal with testing forrunning out of 
AMMO or FUEL if you wish these to indicate the end of the game. 


Listing 3.12a 


PEND REM HEKKKKKHHKKKKKKHKKKKHEER 
2262 REM *¥CHECK FOR END OF GAMEX 
Z2GS REM HHHHH HHH HHH HHH HHH HHH HE 
2299 FETURN 
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Listing 3.12b 


2225 IF HIT=1 THEN FIN =1 
Listing 3.12d 

22490 IF P=3 THEN FIN=1 
Listing 3.12¢ 

22590 IF FUEL=@ THEN FIN=1 


Listing 3. 12f 


2219 IF AMMO=9 THEN FIN=1 


These routines all test variables or flags set elsewhere in the 
program and when one of the conditions is satisfied, they set the 
FIN flag to 1. 


Section 13: END OF GAME DISPLAY 


Ifthe FIN flag has beenset for some reason then we want to stop 
the game. We could just stop the game. This is the simplest and 
most obvious method. You will then have to type RUN to play 
again. Listing 3.13a is just such a QUICK STOP routine. However 
it might be nice to end up with a polite question as to whether or 
not you wish to try again. Well, since it costs nothing to be polite, 
listing 3.13b is a POLITE STOP. If yours is a SCOREing game, then 
you might also like to add listing 3. 13c to tell you what SCORE has 
been achieved. 
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Listing 3.13a 


REM KXKKKKKKKREEE 
REM * STOP GAME * 
REM *¥QUICK STOP * 
. REM HKKKKKKKHEEEE 
2516 STOP 

2S°S RETURN 


Listing 3.13b 


Q 


REM KKEKKKHHKKKKER 

REM * STOP GAME * 

REM *POLITE STOF* 

REM HKEKKKKKKKHKK 

CLS 

PRINT@235, "ANOTHER GO?": AS= 
KEYS 

4@ AS=INKEYS: IF AS="" THEN 234 


Qaa 
Rarauana 


AZWUWNAAaAG 
Qe 


IF AS<>"N" THEN 23998 
STOP 
RETURN 


NNNQNANNNN Nt 


QW W 
O 
HQ 


Listing 3. 13c 


2329 PRINT@136,"YOUR SCORE WAS"5 
SCORE 


The first routine in this section is fairly obvious. The second, 
more polite, routine clears the TEXT SCREEN and PRINTs the 
question ANOTHER GO? (Note that the TEXT SCREEN comes up as 
soon as you PRINT anything on it — you do not have to ask for it 
specifically.) The computer now waits for you to press a key, and 
if you press anything except “N”’ it RETURNs to the control 
program, which will start again, otherwise it STOPs. If you add in 
listing 3.13c then your score will be PRINTed on the screen above 
the question. 


CHAPTER 4 


Starting to Write Your Own Games 


Hopefully, you’ve had a lot of fun making your own games from 
the routines in Chapter 3. But there is no reason why you 
shouldn’t make up your own routines to extend the variety 
available for asection. Perhaps you are wishing there was a 
different background available, or a different explosion. Well, in 
this chapter we will take a good look at how we could change or 
completely replace the routines given in Chapter 3. Let’s go 
through the routines as listed and see how they really work. 


INSTRUCTIONS 


These are fairly easy to alter. In BASIC alinecaneither bea 
command on its own or several commands separated by colons. 
These commands, plus whatever follows them up to the next 
colon (or the end of the line), are known as statements. There are 
a lot of PRINT statements in this section so let’s take a look at 
some of these first. Basically, anything inside the quote marks 
gets printed on the screen, so for the example game you could 
change line 1060 from: 


1060 PRINT @ 258,“USE 0 TO FIRE”: F=1 
to: 


1060 PRINT @ 258, “USE 0 TO FIRE YOUR LASER” :F=1 


As you can see the only differences are inside the quotes and this 
would simply PRINT the new message on the screen instead of the 
original message. Altering the position of the message on the 
screen is also fairly simple. The screen on your Dragon is divided 
up into 16 rows of 32 columns, making 512 PRINT positions. 
These are numbered @ to 511, with the first row going from @ to 
31, the second from 32 to 63, and so on. The @ sign means “‘at”, 
and we can PRINT “at” any of these 512 positions by typing PRINT 
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100 


(@ (position). Let’s display a ‘GOOD ILUCK"’ message on the 
screen. We need to pick a line number that will go in between the 
ones that are already used. 1075 seems like a good choice. We 
want to PRINT the message lower than the last instruction so we'll 
put it two rows below it and centred, so it will be at position 365. 
(If you want to think in terms of rows and columns then if you 
number them from to 15 and from 0 to 31 you can work out the 
position as 32*row number + column number. So, our new line 
of BASIC is: 


1075 PRINT (# 365,“GOOD LUCK!” 


Andit’s as simple as that. 


BACKGROUNDS 


Most of the backgrounds in this book involve the RaNDom 
distribution of shapes on a plain background. We will see how 
the shapes are made up in Chapter 6 so let’s not worry about that 
now. Line 1360 (in listings 3.2b to 3.5e) controls the number of 
objects, in this case 25, that we have on the screen. If you wanted 
to make the game a bit harder (fer a dodging game), or just 
wanted more shapes on the screen (fer a firing game), then you 
could change the 25 toa larger number. This would put extra 
waves or stars (or whatever other shape is used) on the screen. 

Line 1370 PUTs the shapes on to the screen at an x position 
which is a RaNDom multiple of 8 in the range 0 to 248 
(X2=RND(32)*8-8) and a y position which is a RaNDom multiple of 
8 in the range 0 to 168 (Y2=RND(22)*8-8). 

The routines that draw skylines are slightly different from the 
others. In the first case you cannot have a different number of 
buildings across the bottom of the screen as there is only space for 
32 characters, each 8 points in width. Also we do not want the 
buildings PU’ at RaNDom positions. In listing 3.5g what we do is 
to use RND() to determine height of the buildings at random. So 
in line 1360 1 goes from 0 to 248 STEP 8 for the x position, while in 
line 1365 J goes from 8 TO 8*RND(2)STEP 8 for the Y position. 
Hang on, this means our buildings will be dangling down from 
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the top of the screen! We need to use 168-J as the Y position to 
ensure that the storeys of the buildings are built up from the 
bottom. 

In listing 3.5h we use two objects as buildings and then PUT 
them in pairs across the bottom of the screen. In thiscase we have 
I going from @ TO 248 STEP 16 (instead of STEP 8). We could have 
PuT four buildings at a time and then we would have needed to go 
up in steps of 32. 

If you are not playing a dodging game you can fill the screen 
with anything you like — surreal space invaders? 


PLAYER AND ALIEN GRAPHICS 


These will be dealt with separately in Chapter 6. 


SET UP AND RE-START 


Although this is a small routine, and there is only one routine in 
this section, there are quite a few major changes you can make. 

You could change the number of aliens you have to fight — 
either reducing the number to make the game easier to beat, or 
increasing the number to make the game more difficult. At 
present it is set toten but if you wanted to have fifteen aliens then 
you could change line 1420 to: 


1420 ALIENS=15 


You could also change your starting level of ammunition to make 
the game harder or easier in much the same way as altering the 
number of aliens. This is done in line 1440. Suppose you wished 
to make the game a lot easier by having 100 bullets/bombs to start 
with then you could change the line to: 


1440 AMMO= 100 


The amount of fuel can also be changed. Increasing the number 
will make the game easier (your fuel will last longer) and 
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decreasing the number will make the game harder (you will run 
out of fuel sooner). Line 1450 sets the amount of FUEL you have 
to start with. 

Remember that you might also want to change the routines in 
the section where fuel and ammunitionare altered. 


MOVE AND FIRE 


There is very little in this section that can be changed without 
knowing exactly what you’re doing. However it is worth looking at 
how we move the characters around. Before a character is PUT 
anywhere the background is always GOT first, so that when we 
erase the player by PUTting the background back we 

automatically ensure that the background is restored. This way 

we avoid wiping out any stars, etc., when we pass in front of 

them. 


DETECT A HIT 


These routines use simple animation techniques to move a missile 
up the screen from the player. When you are more experienced at 
writing programs you could rewrite these to, say, move the 
missile in any of four directions from the player instead of just 
restricting firing to up the screen. For the moment we won’t 
bother to look at these routines in detail. 


EXPLOSIONS 


You can really have a lot of funin this section, creating different 
noises to go with your game. Once you have grasped the methods 
of producing music you could even add a signature tune to your 
game! Sound on the Dragon can be achieved with one of two 
commands ~ PLAY or SOUND. SOUND can vary the pitch over 
most of the audible range and can vary the duration from about 
6 of a second to as long as you wish This is fine for many 
applications, but for music and really spectacular ef fects we need 
to PLAY. The PLAY command is always followed by a string 
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containing numbers and letters which represent most of the 
musical parameters such as tempo, note length, volume, rests 
and, of course, pitch. This is not the place fora music lesson, but 
suffice it to say that you can use this command to make an 
enormous variety of sounds. 

The routine that flashes the screen does so by quickly 
alternating between the two available colour sets with the SCREEN 
command. 


SCORING 


There are one or two alterations that can be made to this routine, 
mainly concerned with the way scoring is carried out. The 
amount your score is incremented can be changed quite easily, 
and this has already been done in the routines listed. If you 
wanted to increase your score by 20 points for every alien shot 
down then you could change line 1920 to: 


1920 SCORE=SCORE+20 


A more complex routine would give a higher score the earlier you 
managed to hit the alien, so you would need a routine that 
converts a low y coordinate to a high score. When the alien 
reaches you AY will be 168, so if you subtract AY from 168 you 
will score more for hitting the alien early on. You can divide the 
result by, say, 8 to prevent ridiculously high scores, and take its 
INT value to avoid decimal scores. The new line would Jook like 
this: 


1920 SCORE=SCORE+INT((168-AY)/8) 


You can experiment with different ratios as much as you like, of 
course. 


FUEL AND AMMUNITION 


The routines in this section can be altered to increase or decrease 
the amounts by which fuel and bullets are used up. The value for 
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ammunition is stored in the variable AMMO and the amount of 
fuel is stored in the variable FUEL. Another variable used in these 
routines is HIT, which, as we have seen already, is used to 
indicate whether or not you managed to hit an alien (it is set to 0 
if you didn’t, and 1 if you did), This variable is used in dodging 
games to indicate that you have crashed. A variable used in this 
way, as an indicator, is called a flag. 


REDISPLAY THE SCREEN 


There arenot many changes youcan make in this section, 
however you could make a couple of alterations if you wanted to 
make the game faster and a little harder. If you leave out lines 
2130 and 2140 then vou won’t know what levels of fuel and 
ammunition you have left. That will make the game much harder 
to play, because you won’t know if you’re just about to run out of 
fuel or bullets. Because the Dragon now has two less jobs to do, 
the program runs faster. It’s like someone taking away some of 
your typing — you work much faster. 

A more complicated change would be to put in a high score 
variable, so that you could see whether you were improving or 
not. This is more complex because you have to put extra lines in 
other routines as well before you can print it on the screen. 

First you must decide what te cal! the variable in which you 
keep the high score. If you look at Appendix One at the back of 
this book, you will see a list of the variables and their uses. 
Choose one that is not in the list. It is best to choose something 
meaningful such as HISCORE. 

Don’t forget to keep track of which extra line numbers you use 
or you could find yourself overwriting something you wanted to 
keep. It’s best to look at the listing on the computer before 
adding any new lines. 

In the END OF GAME routine we have to write a line which 
compares the high score with the score you have just received. If 
the latter is the greater it mustalter the high score to be equal to 
your score. This means we will have to use an IF statement and 
we can write the statement out (in English) as IF (MY SCORE) IS 
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GREATER THAN (HIGH SCORE) THEN LET (HIGH SCORE) EQUAL 
(MY SCORE). This is very easy to convert to the BASIC language 
and is equivalent to: 


IF SCORE>HISCORE THEN HISCORE=SCORE 


Which goes to show how much like a shortened form of English 
the BASIC language is. 

Having done this we must return to altering the routine to 
update the screen display. We need an extra line in here to PRINT 
the high score on the screen and we could put one in that looked 
like this: 


2185 P$=STR&HISCORE)+“ ”:XS=80:YS=176:GOSUB 
9900 


You can of course put the high score anywhere you like, but try 
to ensure it doesn’t interfere too much with the rest of the game. 
Look again at the section on changing the instructions if you’re 
not sure how to go about it. 


CHECK FOR END OF GAME ROUTINES 


These routines would be quite awkward to change but perhaps 
when you have some more experience you could devise a system 
which tells you why the game has ended. You would need to 
examine the different variables to see why the game ended. For 
example, a variable could hold the numbers | to 4 to show that: 


1 — Thealiens overran your base 
2 — You shot down all the aliens 
3 — You ran out of fuel 

4 — You ran out of bullets 


The variable that flags the end of the game is FIN so you could 
change the value that is assigned to it in each line of the CHECK 
routine. In the END OF GAME routine you could PRINT a different 
message, dependent on the value of IN, that would tell the 
player why he had won or lost the game. These messages could be 
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slotted in between lines 2320 and 2330 and would look like this: 


2321 IF FIN=1 THEN PRINT @ 197, “YOU WERE 
OVERRUN BY ALIENS” 

2322 IF FIN=2 THEN PRINT @ 197, “YOU SHOT 
DOWN ALL THE ALIENS” 

2323 IF FIN=3 THEN PRINT (@ 197, ““YOU RAN OUT OF 
FUEL” 

2324 IF FIN=4 THEN PRINT @ 197,‘““YOURAN OUT OF 
AMMUNITION” 


Of course you could still add these lines even if you were using 
the impolite ending. 

That concludes this chapter on altering the routines in the 
arcade games. Remember to take everything one step at a time, 
testing as you go so that you don’t have to look through reams of 
alterations to find one mistake. It is also a good idea to keep 
CSAVEing the program after making alterations just in case the 
power goes off for any reason. Whether it’s because grandma fell 
over the plug or because the blackout for World War Three has 
come, you're going to be very annoyed if several hours of unsaved 
typing suddenly changes into a blank screen. 


CHAPTER 5 


Further Explanations and Understanding BASIC 


Some of the BASIC used in creating the routines has already been 
explained in the previous chapter but from now on we will be 
using and referring to more advanced techniques for 
programming. If you have been working through the book and 
want to learn more about the technicalities of BASIC then carry on 
with this chapter. In it we will examine the way BASIC actually 
works. 


MORE PRINT ITEMS 


In previous routines you may have noticed that various parts of 
the PRINT line are separated by semi-colons(;), these are, logically 
enough, called PRINT separators, but they are not there just to 
break up the statement, they have a definite purpose. Try the 
following short routine: 


10 FOR X=1 TO9 
20 PRINT “!”; 
30 NEXT X 


and notice the result — it should look like this: 


UOTE 


Now try the routine without the semi-colon at the endof the 
PRINT statement: 


10 FOR X=1TO9 
20 PRINT “!” 
30 NEXT X 
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The result is different — it looks like this: 
! 
' 
' 
! 
! 
1 
! 
! 
! 


Now try it with a comma: 


10 FOR X=1 TO9 
20 PRINT “!”, 
30 NEXT X 


Once more the result is different: 
! ! 
! ! 
! ! 
! ! 
! 


From the above, we have noticed several things which can be 
summarised as follows: 

1. A semi-colon causes the PRINT items to be PRINTed one after 
another with no spaces in between. 

2. A comma causes the PRINT items to be PRINTed one in each 
half of the screen. 

3. The absence of either a semi-colon or a comma causes an 
automatic line feed which means that each PRINT item is PRINTed 
on a separate line. 

If you try PRINTing numbers on the Dragon the rule for semi- 
colons may at first appear to go awry. Try the following: 


10 FOR X=1TO9 
20 PRINT X; 
30 NEXT X 
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and you will get: 
2.3 5-6 F Seo 


Why the spaces? This is because whenever the Dragon PRINTS 
numbers it always puts a space in front of them. This can be quite 
useful sometimes for tabulating results, but at other times it can 
be quite a nuisance! Either way, you should keep it in mind 
whenever you plan to PRINT numbers. 

We have already used PRINT « and seen how you can use this 
to PRINT anywhere on the screen, but there is another form — 
PRINT TAB() — which PRINTs at a specific column on the screen, 
rather like the TAB ona typewriter. You cannot use it to 
backspace on a line, however. If you typed: 


10 PRINT TAB(20);“MY NAME IS”;TAB(I8);“FRED” 


You would get 


My name is 
Fred 


The computer did the best it could in the circumstances! I fyou 
use a TAB number bigger than 31 (31 would give you the 32nd 
column on the screen because the first column is numbered Q) the 
computer will move to the next line and PRINT at the column 
which is 32 less than the TAB number you gave it, so that: 


10 PRINT TAB(2); “WHAT’S UP”; TAB(34);“DOC” 
would produce the following: 


WHAT'S UP 
DOC? 


PRINTING VARIABLES 


So far, we have only seen how to PRINT items enclosed in quotes 
(‘°’) but we can also PRINT variables. We've already met numeric 
variables, used to store numbers such as the score and the screen 
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positions. They can be PRINTed in just the same way as things in 
quotes: 


10 PRINT @ 0,SCORE 


and if, for instance, the number 2200 is stored in SCORE, 2200 
will be PRINTed in the top left-hand corner of the screen 
(preceded by that space we mentioned earlier). This is how we 
displayed the player’s score at the end of the game: 


23295 PRINT@136,"YOUR SCORE WAS"; 
SCORE 


Notice that because the computer PRINTs a space in front of 
numbers we didn’t need to put one after ‘““WAS” inside the 
quotes. 

There is another type of variable called a string variable and 
these contain characters instead of numbers. We will talk about 
these more in Chapter 7. 


PRINTING ON THE GRAPHICS SCREEN 


In the background routines are lines which place headings, such 
as “SCORE:”, on the screen. They do not use PRINT because this 
command only works with the TEXT screen, which is completely 
separate from the GRAPHICS screen. Instead they give a string 
variable the characters for the heading and pass this (P$), along 
with the screen co-ordinates where we want the headings to go, to 
the PUT STRING subroutine at line 9900. This routine takes each 
character in turn from P$,GETs it from the collection of characters 
defined in the initialisation section of the program, and PUTs it on 
screen. We will see more on GET and PUT in Chapter 6. 


PROGRAM CONTROL 
Programs are controlled by asking questions and then directing 


flow to different parts of the program depending on the answer. 
You ask a question in BASIC by saying IF (CONDITION) THEN 


(ACTION). CONDITION can be many things and you can use the 
following symbols (or operands) to make the test. 

= Equals 

> Greater than 

<_ Less than 

<= Less than or equal to 

>= Greater than or equal to 

<> Not equal to 


Here are a few examples of their use: 


20IF A>B THEN GOTO 40 
30 PRINT A 
40 PRINT B 


If A holds a bigger number than B, the program will jump to line 
40 and only the value of B will be PRINTed, but if A holds a 
number equal to, or less than B then the values of both A and B 
will be PRINTed, because the program will carry on with line 30, 
instead of jumping to line 40. 


20 IF A$<>B$ THEN STOP 
30 PRINT A$ 
40 PRINT B$ 


In this case, we are testing to see if two string variables contain 
the same letters. If they don’t, the program will stop, and if they 
are identical, the program will PRINT out the contents of A$ and 
BS 


20 IF A-B=5 THEN GOSUB 1000 
30 GOSUB 2000 


Line 20 checks to see if the result of subtracting the value of B 
from the value of A is equal to 5, and if it is the program will 
jump tothe subroutne at line 1000, and will proceed to the 
subroutine at line 2000 if it isn’t. The contents of A and B are not 
af fected by this. ACTION can also be many things and we have 
already used three different actions in the previous examples. 
Here are some more: 


20 IF Y<>0 THEN LET Y=0 
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This will reset Y to 0 ifit is some other number. 
30 IF M$=“Y” THEN SOUND 75,1 


This will produce a sound if the string variable M$ contains the 
letter Y. 


40 IF (X+Y)/2<Z THEN CLS 


Line 40 willclear the screen (1S) if the result of adding the 
values in X and Y together and then dividing by two is less than 
the value of 7. Calculations in brackets are always performed 
first; without the brackets multiplication and division will be 
done first and the value of y would first be divided by 2, and then 
added to the value of X. This can be seen from the following 
example: 

(3+7)/2 = 10/2=5 
whereas: 

34+7/2=34+35=65 


Two or more conditions can be tested at one time, using AND, OR 
and NOT. 


AND 


Thisis very similar to its meaning in English and, when it is 
used, the specified action will only happen when all the 
conditions are true. For example: 


20 IF X=Y AND M$=“YES” THEN STOP 


or even: 


30 IF H=67 AND X$<>"“NO” AND A-B=Z+W AND 
GS$=KS$ THEN CLS: GOTO 20 


In the above line, the screen will or!y be cleared, and the 
program then jump to line 20, when all four conditions are met. 


OR 


This is really the opposite of AND. in that the action will be 
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performed if either condition is true, butnotiftheyare both 
false. For example: 


20IF X=0 OR B=1 THEN SOUND 75,1 


The note will sound if X holds the value of 0, or B holds the value 
1, or if both are true. 


NOT 


NOT can sometimes be very useful. Just as in English, it is used to 
switch true (which the Dragon takes as —1), and false (@) values. 
We can say, for example: 


1510 IF NOT (A=B) THEN GOTO 90 


The condition A=B is true if A does equal B, false otherwise. 
Putting NOT before the condition reverses the values the Dragon 
uses as true and false, so that A is NOT equal to B then the 
program will go to line 90, since NOT (A=B) is true. 

Right, that’s enough BASIC for now. In the next chapter we will 
deal with all the fun and frolics of how to define characters like 
the aliens and the player. 


CHAPTER 6 


Character Graphics 


In this chapter we will be taking a look at one of the most 
important parts of programming games: Graphics characters. We 
have already used many of these without bothering to worry 
about how they are made up or how they work. Let’s take a look 
at one of the routines that sets up a graphics character. For 
example, look at the routines that define aliens. As you can see, 
they are all very similar, in fact the only differences are in the 
lines starting with REM and the line starting with DATA. The line 
starting with REM, if you remember, just means REMark or 
REMinder, so after REM you can write anything you like — the 
program will ignore this statement — it’s just there to help us 
humans understand the program. 

Next we'll deal with the DATA lines. You may have noticed 
that there are always eight numbers in each DATA statement This 
is because of the way in which our little characters are made up. 
They are drawn on an eight by eight grid of squares. We have to 
draw our character on a grid like this, and remember, you can 
only use whole squares, not parts — it’s all or nothing. 


24 
68 
38 
36 
24 
36 
66 
129 


Above is a blank grid and next to it we’ve drawn a new alien, so 
that you can see how to turn him into a set of numbers. If you 
look again, you can see the row of numbers across the top of the 
grid. Each square in the grid has a value, and that is given by the 
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number above it, soto get the number for each line, you start at 
one end, and if the square is blank you move to the next, and if 
the square is blacked in you add it to your total. The first line is 
hence: 


16+ 8= 24 
and the rest of the lines are as follows: 


32+ 16+8+4=60 
64+.164+8+2=90 


32+ 4= 36 
16+ 8= 24 
32 + 4 = 36 
64+ 2 = 66 
128 + 1 = 129 


Now you know enough to be able to design your own graphics 
characters so that you can have different aliens or players. You 
can even design new shapes for use in the background. What we 
really need to know, though, is how the routine actually works. 
So let’s go back over it in greater detail. 

1, The REM statement we have already dealt with, and we 
know that REM is short for REMinder or REMark. 

2. There is anumber system called binary, based on zeroes and 
ones instead of our decimal system which is based on the digits 0 
to 9. This binary system is the only number system that your 
microcomputer directly understands. It seems to understand 
decimal numbers but that is only because there is a program 
inside that converts everything — even the words — into binary 
numbers. 

We can use this system to represent our graphics character, by 
putting a one where a square is blacked in and a zero where a 
square is left blank. In this way we would get 8 binary digits. If 
you look in Appendix Four you will see that a series of eight of 
these binary digits are equivalent to a decimal number between 0 
and 255, and the numbers of the DATA statements are the decimal 
equivalents of these binary numbers. In computing we call a 
binary digit a BIT for short. Eight bits make what is called one 
BYTE, and your computer’s memory is divided up into bytes. 
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Your Dragon has 65536 bytes of memory, 32768 of which are 
available for you to put information into. Within a byte, as you 
move along from right to left each bit is worth double that of the 
one before it — hence the sequence of numbers at the the top of 
our graphics grid: 


128, 64, 32, 16, 8, 4, 2, 1 


If each bit was set to 1, the number held in that byte would be 
255 decimal, or 11111111 in binary. 

3. The next statement sets two variables, PG and N, and then 
GOSUBs to the routine at line 9000 which does the actual defining 
of the character. 

4. This routine is very short, but it manages to do a lot of 
work. The first line just arranges for us to see graphics pages PG, 
PG+ I, PG+2, and PG+3. You will notice that in our character 
definitions we always set PG=2 so you will see pages 2,3,4 and 5S. 
This line is not really necessary, but we might like to see what’s 
going on. The next line sets the first address in memory which we 
are going to write to. We want to define our characters on to page 
5 of the graphics screen memory so that we can GET them 
afterwards. This page starts at memory location 7680, and this is 
what ST (the STart variable) is set to. The next statement is a FOR, 
NEXT statement. We have used these quite a lot but they have not 
yet been fully explained. The FOR statement always goes with a 
NEXT statement and it is a way of counting and performing an 
action a specified number of times, so, for example: 


1220 FOR I=0 TO7 


1230 NEXT I 


will carry out the instructions in between eight times — the count 
starts from zero and goes up to seven in steps of one. It can be 
made to go up or down inother steps, so that: 
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10 FOR K = 10TO20STEP 2 


50 NEXT K 


will mean that K will hold the following values as the program 
goes round the loop: 

10, 12, 14, 16, 18, 20 
and the FOR NEXT loop: 


10 FOR T = 100 TO 10 STEP - 10 


50 NEXT T 


will give the following as values of T: 
100, 90, 80, 70, 60, 5040, 30, 20, 10 


You will notice thaton the line after the FOR statement in line 
9010, there is another FOR statement. This is perfectly 
respectable, and it is called “nesting loops” (sounds cosy doesn’t 
it). Itis OK as long as you remember that the loops must not 
overlap, so the last loop “opened” with a FOR must be the first 
loop “closed” with a NEXT. These two loops are both closed in 
line 9050, but with just one NEXT statement This is a feature 
special to the Dragon. It allows us to say NEXT Y.CH instead of 
NEXT Y:NEXT CH, although we could still do it this way if we 
wanted. 

5. Now for what is going on inside the loops. Well, first we 
READ the number in the DATA statement into the variable CD (for 
CoDe), then we check to see if the iNVerse flag (NV) is set (NV is 
set or reset in the initialisation section of the program) and if it is 
we set CD to 255-CD. This has the effect of changing all the zeros 
to ones and vice versa — think about it. The next line POKEs this 
value (CD) directly into memory, at the address worked out by the 
expression ST +224*RN+CH+32*Y. Don’t worry if you can’t see 
why this expression works. It’s not obvious and you don’t need to 
understand it to use it. In fact, the terms 224*RN and CH are not 


118 


necessary for the character defining routines, they are only 
necessary when you are defining more than one character at a 
time, such as in the initialisation part of the program which 
defines the entire alphabet, and the numbers | to 9, into page 6, 
so that we can put scores, etc., on to the graphics screens during 
the game. (That’s what all those DATA statements are for in lines 
500 to 584!). 

6. Whenthe subroutine at 9000 has RETURNed control to the 
“ALIEN SKULL”, or whatever, routine, we need to GET the 
character into an array. We will be discussing arrays in their more 
usual context in the next chapter. For now just think of it as 
putting aside an area of memory in which we can store our 
graphics character, ready to dump him on screen at a moment’s 
notice. A word of warning here: you can only dimension an array 
once withina program — attempting to do it a second time will 
cause an errorreport and stop your program. For this reason it is 
of ten a good idea to include all DIM statements in the initialisation 
part of the program. As we only visit the character definition 
routines once, however, we can put them here and it does make it 
clearer what they are being used for. 

The GET instruction takes the form: GET(X,Y)-(X+P,¥+Q),A.G 
where X and Y are the screen co-ordinates of the top left corner of 
the rectangle of the screen which we want to GET. P isthe width 
of the rectangle minus 1, Q is the height of the rectangle minus 1, 
and A is the name of the array into which we are GETting the bit 
of screen in question. GET’s partner in crime is PUT and it looks 
very similar: PUT(X,Y) - (X+P,Y+Q),A,PSET. This PUTs the area of 
screen previously GOT into A. back on to the screen at position 
X.Y. The PSET means “‘put it back just as you got it”. Ifwe 
wished we could use PRESET, AND, OR, or NOT instead of PSET. 


PRESET: This PUTs an inverted picture on to the screen. By 
inverted we do not mean upside down, but that the foreground 
becomes background and vice versa. 

NOT: This ignores the array completely and just inverts whatever 
is on that part of the screen at the time. 

AND: This compares each point in the array with each point 
already on the bit of screen in question and sets the point on 
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screen if they are both set, otherwise it resets it. 
OR: This is like AND except that it will set the screen point if 
either of the points are set, otherwise it resets it. 


Well, that’s how the character definition routines work. Of 
course you could do all this without using using READ, DATA, FOR 
and NEXT, but the program would be badly styled, look very 
cumbersome and be difficult to change. 


Where else can we use graphics characters? Well, if you 
remember we said we would be creating some more firing 
routines in this chapter, and it is in these routines that we can 
make further use of graphics characters. We will define a bomb 
anda fireball which we can GET/PUT up the screen, and then we 
will see how to utilise these in a firing routine. First, a picture of 
a bomb: 


24 
60 
60 
60 
60 
24 
60 
126 


The numbers for it would be: 

164+ 8=24 

32+ 16+8+4=60 

32+ 16+8+4=60 

32+ 16+8+4=60 

32+ 16+8+4=60 

16 + 8 = 24 

32+ 16+8+4=60 

64+ 324+ 166+84+4+2= 126 
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Now then, we need to decide where to put the lines which will 
define the character. We do not want to put them in the firing 
routine because that would mean redefining the character each 
time we fired a shot. This is very inefficient, and it would slow 
down the program intolerably. A good place would be in the alien 
graphics routine, and it would look like this: 


1183 DATA 24,60 ,60,60 ,60,24 60,126 
1185 GOSUB 9000 
1187 DIMC(1):GET(0,144) - (7,151),C,G 


Notice that this time we don’t need to set PG or N because they 
will still be set from the alien definition. This would mean that 
array C now contained a bomb! Here is the listing which can be 
slotted into the firing routine part of the game if you wish: 


Listing 6.1 


17BI REM HXHKKKKHKHKHHEE 

1701 REM ¥CHECK FOR HIT¥ 

1762 REM * BOMB ¥ 

17BS REM HXHKKKK EKA IEE 

1719 HIT=@:IF K=@ THEN 1799 

1715 SOUND199,1 

1729 BX=PX« BY=169 

1725 GET(BX,BY) -(BX+7,BY+7) ,N,G: 
PUT (BX,BY) - (BX+7, BY+7) ,C, PSET 
1738 BY=BY-8 

1735 PUT (BX, BY+8) - (BX+7,BY+15) ,N 
»PSET 

1749 GET(BX,BY) ~(BX+7,BY+7),N,G: 
PUT(BX, BY) - (BX+7, BY+7) ,C,PSET 
1745 IF XA=PX AND AY=BY THEN HIT 
=1:GOTO 17469 

1759 IF BY>@ THEN 1738 

1768 PUT(BX,BY)-(BX+7, BY+7),N,PS 
ET 

1799 RETURN 
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If you want a fireball instead of a bomb just change the DATA to 
this: 


1183 DATA 0,0,36,24,126,24,36,0 


By following the above format, you should be able to create many 
different types of missile. 

Following this text is a utility program (a utility program is one 
that helps you to design and create other programs) to help you 
make up your own characters and work out the DATA for them 
without using reams of paper and wearing out lots of pencils. 
(After all, what’s a computer for, if not to make life easier?) Your 
position in the grid is shown by a cross, which you can move with 
the arrow keys. When you reach a square you want to change — 
either from black to white or white to black ~ press C and it will 
change. As you create your character you will see a real-size 
version appear at the bottom of the screen, and under the word 
DATA you will see the numbers that you will need to put into the 
DATA statement in your definition routine. 

This is a longish program, so be careful how you type it in. It 
would be a good idea to CSAVE it for future use. 


Character Editor Listing 


19 PCLEARS:PMODE4, 2:PCLS1 

28 PG=2:N=44:NV=1:GOSUB 9999 

3@ DIMC(1):DIMO(1):DIMN(1):DIMDT 
(7) 

4@ GET(88, 152)-(95,159),C,G 

59 GOSUB 1999 

6@ GOSUB 2999 

198 AS=INKEYS:IF AS="" THEN 199 
119 IF AS="C" THEN GOSUB 3999:GO0 

TO 196 

120 IF AS=CHRS(8) THEN IF CX>96 

THEN F=F*¥2:CX=CX-8:GOSUB 2999:G0 
TO 198 

130 IF AS=CHRS(9) THEN IF CX<152 
THEN F=F/2:CX=CX+8:GOSUB 2999:G 
oTo 199 
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149 IF AS=CHRS(19) THEN IF Y<7 T 
HEN AD=AD+32: Y=Y+1:3CY=CY+8: GOSUB 
2888:GOTO 199 

159 IF A®S=CHR$(94) THEN IF YOO T 
HEN AD=AD-32:Y=Y-1:CY=CY-8: GOSUB 
2895 


166 
Soo 


GOTO 
DATA 
DATA 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


166 
DB, 68, 66, 66,126, 66,66,9 
B,124,66,124,66,66,124, 


SB, 68, 66,64,64,66,608,0 
G8, 126, 68,66,66,68, 128,98 
B, 126,64, 124,64,64,126, 


B, 126,64,124,64,64,64,9 
®, 68, 66,64,78,66,68,8 
B, 66,66, 126,66, 66,66,9 
8,62,8,8,8,8,62,9 
B,2,2,2,66,66,60,8 
B,68,72,112,72,68,66,9 
B,64,64,64,64,64, 126,98 
B, 66,182,908 ,66,66,66,08 
B,66,98,82, 74,70, 66,8 
B, 68,66, 66,66,66,608,8 
B,124, 66,66, 124,64,64,8 
B, 6G, 66, 66,114,74, 60,9 
@,124, 66,66, 124,68,66,9 
B,68,64,68,2,66,68,9 

B, 254,16, 16,16, 16,16,9 
B,66,66,66,66,66,608,9 
B, 66,66, 66, 66,36,24,8 
B66, 66, 66,96, 192,66,98 
B, 66,36,24,24,36,66,8 
8,138, 68,48,16,16,16,9 
G,126,4,8,16,32,126,9 
G,8,8,09,09,08,08,8 

999, 999,999,999, 999 
B,24,36,44,52,36,24,0 


566 

568 
578 

S72 
374 

576 
S76 
58g 
S82 
584 
S86 

OOF. 

1999 
1919 
EP 8 
1929 
1939 
1949 
1959 
1969 
1979 
99D 
1999 
1199 
TOYS 
1119 
96:G 
1126 
6166 
1120 
1149 
1999 
2999 
ET 


DATA 9,8,24,8,8,8, 28,9 
DATA @,24,36,8,16,32,69,9 
DATA ©, 24, 36,24,4,36, 24,9 
DATA G,8,24,48,72,124,8,9 
DATA 9, 69,32, 56,4, 36, 24,9 
DATA 9,28,32,56,36,36,24,8 
DATA G,69,4,8,16,32,32,8 
DATA @,24, 36,24, 36, 36,24,9 
DATA 9,24,36,36,28,4,56,8 
DATA 9,9,8,9,9,9,8,9 
DATA G,24, 24, 126,126,24, 24,9 
REM ¥X¥DISPLAY GRIDX® 
PMODE4, 1: PCLSNV: SCREEN1, @ 
COLORS,1:FOR X=96 TO 869 ST 


LINE (X,64)-(X,127),PSET 
NEXT xX 

FOR Y=64 TO 128 STEP 8 

LINE (96, Y)-(159,Y),PSET 
NEXT ¥ 
P$="DATA":XS=56: YS=48: GOSUB 
g 

FOR YS=64 TO 129 STEP 8 
XS=72:P$="9":GOSUB 9999:NEX 


P$="C TO CHANGE*:XS=168: YS= 
OSUB 9999 
CX=96:CY=64:0X=CX:0Y=CY: AD= 
IF=128:Y=9 

GET (OX, OY) - (OX#7, OY+7),0,G 
RETURN 

REM ¥*¥CROSS#* 

PUT (OX, OY) - (OX#7,0Y+7), 0, PS 


2G19 GET(CX,CY) -{(CX+7,CY+7),0,G6 


2929 
ET 


PUT(CX,CY)-(CX+7,CY+7),C,PS 
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2938 OX=CX:OY=CY 

2849 RETURN 

2999 REM ¥*#CHANGEX* 

39GB PUT(CX,CY)-(CX#+7,CY+7),0,PS 
ET 

3919 PUT(CX, CY) -(CX+7,CY+7),C,NO 
T 

3926 GET(CX,CY)-(CX+7,CY+7),0,G 
3930 IF PPOINT (CX+3,CY+3)=@8 THEN 
DT(VI=SDTCYIFF ELSE DTCYI=DTC(Y)- 

F 

3935 A=DT(Y):IF NV=1 THEN A=255- 

A 

3949 POKE AD,A 

3950 PS=STRS(DT(Y) )3PS=RIGHTS(PS 
»LEN(PS)-1) 

39690 XS=80-S¥#LEN(PS) 

39708 YS=64+8kY 

3975 COLOR1,1:LINE(56,YS)-(88,YS 
+7),PSET, BF 

39868 GOSUB 9999 

39S PUT(CX,CY)-(CX+7,CY+7) ,C,PS 

ET 

3995 RETURN 

9999 PMODE4,FPG: SCREENI,9@:REMthis 
is just so you can see it happe 

ning 

9OG1B ST=7689+1536% (PG-2) 

9929 FOR CH=9 TO N-1:RN=INT(CH/3 

2) 

9936 FOR Y=6 TO 7:READ CD:IF CD= 

999 THEN Y=7:GOTO 9959 

9935 IF NV=1 THEN CD=255-CD 

99649 POKE ST+224#¥RN+CH+32¥Y,CD 

9950 NEXTY,CH 

9955 RETURN 

9899 REM *¥PRINT STRING* 


9999 IF PS="" THEN RETURN 

991G AS=LEFTS (PS, 1): PS=RIGHTS (PS 
, LEN (PS) -1) 

9929 IF AS=" " THEN YG=144:xG=29 
8:GOTO 9959 

9938 YG=144:AS=ASC(AS)-65:IF AS< 
"A" THEN YG=152:AS=ASC (AS) -48 
9948 XG=8xAS 

9958 GOSUB 9969:XS=xXS+8:GOTO 999 


g 
9969 PMODE4, 2:GET (XG, YG)- (xG+7,¥ 
G+7),N,G 


9978 PMODE4, 1:PUT(XS,YS)-(xXS+7,Y 
S+7) ,N, PSET: RETURN 


Here is a sample screen from the program: 


CATA 


Bey eee 
AR cnn 


Ah E Man 


2 To CHANGE 
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CHAPTER 7 


Arrays and Adventures 


By now you should be quite familiar with the idea of a variable. 
We have been using variables to store scores, the number of 
aliens and many other things. 

These variables are called simple variables — they contain one 
number only. If you want to store another number you either use 
another variable or overwrite what was stored in the first one. 

For example, going back to our cheesecake example for a 
moment, suppose you wanted to keep track of your profit on 
cheesecake over a week. One way would be to have seven 
different variables, one for each day. Then your program would 
be seven times as long, as it would be doing the same calculation 
on seven different variables, and at the end it would print out 
your profits for the seven days with a routine like this: 


100 PRINT PI 
110 PRINT P2 
120 PRINT P3 
130 PRINT P4 
140 PRINT P5 
150 PRINT P6 
160 PRINT P7 


Well, it would work, but there is a better way — using arrays. 

An array is in effect a collection of variables with the same 
name. But unlike simple variables, you cannot LET them equal 
anything until you have told the computer that you are going to 
use them. You do this with the DIM statement, and this is called 
DIMensioning the array. 

In our example, we need an array with seven “elements”. Now 
it is one of the peculiar facts in computing that computers usually 
start counting from @, not from 1] like humans, so it counts the 
elements in an array as 0,1,2,3,4,5,6, and so on. So, to get seven 
elements we only need to go up to 6. (This may seem odd at first, 
but you will soon get used to it, and it is actually very useful in 
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some circumstances.) DIM P(6), then, will create an array of seven 
elements, and we refer to them as P(@), P(1), and so on. Now, the 
really clever bit about arrays is that the number inside the 
brackets (called the subscript) can be another variable! This 
means that we could store our cheesecake profits for each day in 
P(0) to P(6) and to PRINT them out we could use a routine like this: 


100 FOR N=0 TO6 
110 PRINT P(N) 
120 NEXT N 


and we think you will agree that this is much better than the 
previous method. 

This array is said to have one DIMension, with seven elements — 
a one by seven array. We have used this DIMension for the days of 
the week. However, you can have arrays with as many 
DIMensions as you like. Let’s say we wanted to find out which 
flavours made the most popular cheesecake (so we can maximise 
our profits!) We would set up a two DIMensional array. One 
DIMension would have seven elements as before and the other 
DIMension would have as many elements as we have flavours. 
Let’s keep it simple and say that we have strawberry, chocolate, 
blackcurrant and plain — four flavours in all. Our array would be 
seven by four, so our DIM statement would be DIM P(6,3). The 
first day’s profit for strawberry cheesecake would go intoP (0,0), 
for chocolate it would be P(0,1), for blackcurrant P(0,2) and for 
plain Po,3). The second day’s profit would be in P(1,0), P(1,1), P(,2) 
and so on. To PRINT these out at the end of the program, you 
would be able to use a routine like this: 


100 FOR DAY=0 TO 6 

110 FOR FLAVOUR= 0 TO 3 

120 PRINT P(DAY,FLAVOUR);“ ”; 
130 NEXT FLAVOUR 

140 PRINT 

150 NEXT DAY 


This would give us a neat table — flavours across and days down, 
with 28 figures in all. Can you imagine using 28 variables and 28 
PRINT statements to do the same job? 
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STRING VARIABLES AND STRING ARRAYS 


Variables and arrays which contain numbers are called “numeric” 
variables or arrays. This is not just a pointless piece of jargon; it 
distinguishes them from another, quite different, type of variable 
—a string variable — and another type of array — a string array. 

We have used string variables in our arcade game to get scores, 
etc., on to the Dragon’s high resolution graphics screen, but we 
have not really looked at them very closely 

Whereas a numeric variable holds a number, a string variable 
holds a string, and the same goes for arrays. This is the major 
difference between the two types and it is a very important 
difference. A string is a collection of characters. The computer 
recognises a collection of characters as a string when they are 
between quotes. So, “FRED” is recognised by the computer as a 
string, but FRED without the quotes is assumed to be a numeric 
variable. 

The important thing to remember is that you cannot mix the 
two types. If, for example, you tried to say LET A=“FRED” the 
computer would give you the error report 2TM ERROR which 
stands for Type Mismatch, which is just what it was. String 
variables can have the same kind of names as numeric variables, 
but they always have a $ sign on the end to show that they are 
string variables. So, LET A$="FRED” would put the string “FRED” 
into the variable A$, and PRINT A$ would result in FRED 
appearing on the screen. LET A$= 10, however, would give >TM 
ERROR again, because you cannot put a number into a string 
variable. 

Of course, digits are only characters, and they can be put in 
strings, so LET A$="10" is fine. But remember it is a string not a 
number and so, if you then tried to say LET X=2+ A$ you would 
once again get >TM ERROR. There are, however, two functions 
which allow you to change a number into a string and vice versa. 
LET A$=STR&(10) is quite acceptable, and would result in A$ 
containing the string “ 10°. Notice the space. This is why the 
computer PRINTs a space before numbers — because it uses the 
STRS$ function itself to convert the numbers into strings before 
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printing them. LET X=VAL(A$) is also perfectly OK, and if A$ 
contained the string “10” (or “ 10”) then X would be assigned the 
value 10. 

We can use string functions together with the two DIMensions 
of P$(6,3) to format the output from our cheesecake profits 
routine. We can use the STR$ function to first turn the numbers 
into strings, and then use another function which gives us the 
length of a string (LEN) to get all the numbers lined up. The 
program would look like this:- 


100 FOR DAY=0 TO 6 

110 FOR FLAVOUR =0 TO 3 

120 LET A$=STR$ (P(DAY,FLAVOUR)) 

130 PRINT TAB(FLAVOUR*8 — LEN(A$)-+ 8);A$ 
140 NEXT FLAVOUR 

15@ PRINT 

160 NEXT DAY 


Arrays and strings are used a lot in adventure games and this is 
what we'll take a look at next. In the adventure game given in the 
next chapter we will see multi-DIMensional arrays used to keep 
track of things like the player’s position and the contents of 
rooms. The program in the next chapter builds up into a game in 
much the same way that the sections of Chapter 3 built up into an 
arcade game. Although there are some differences the process is 
sufficiently similar not to need a full example program. 


CHAPTER 8 


Adventure Games, a Selection of Lego Bricks 


In this chapter we are going to write an adventure game. We will 
begin as we did for our arcade game — by considering the basic 
building blocks of such a game. These are as follows: 


Initialisation. 

Assign the Inventories. 
Give Instructions. 
Create the Maze. 
Describe Situation. 
Player’s INPUT. 

Check INPUT is Legal. 
Perform Instruction. 
Computer Response. 
10. Check for End of Game. 
11. End of Game Message. 
12. Round Again. 


WOMNIUDARWNHH 


To begin with, we will write the simplest (well almost!) version of 
the game. We have chosena scenario of a maze of dungeons. The 
player mustsearch for a Crown of Emeralds left there aeons ago 
by the king of a long forgotton race of Troglodytes. The only 
“feature” of the game is that some of the passages from cave to 
cave have doors that are locked, and to open them the player 
needs to find and take a key, of which there are several lying 
about in the maze. To prevent things from becoming too easy we 
will not allow any keys to be used more than once - they will 
always either break or get stuck in the lock. 


Step 1. Initialisation. OK! Let’s build the game. Again we will 
begin with the initialisation and control program, which follows 
the sequence set out above. The pattern is a familiar one — for 
each block, we just GOSUB to a subroutine which does whatever 
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the blockname says it must do (eg. create a maze), just as in our 
arcade game. 

The control program is shown in listing 8.1. Type it in exactly 
as shown. 


Listing 8.1 


1G REM KHEKKHKHHKHKKEHHEHEE 

26 REM ¥TREASURE TRAIL*® 

SHG REM HHH 

46 REM ** INITIALISE DRAGON ** 
S@ CLEAR S69 

69 DIMIAS(7,1) > DIMIBS(19) : DIMICS 
(2) 

768 DIMRM$(35,5):DIMAIS$(4,1): DIMP 
S(S) 

86 FOOD=9: BATTERIES=S9: MN=9 

99 DEF FNR(DR)=(6 AND DR=3)-(6 A 
ND DR=2)+(1 AND DR=4)-(1 AND DR= 
S):DEF FND(DR)=DR- (DR=2 OR DR=4) 
+(DR=3 OR DR=5) 

LIF REM KHKEKKKHKHHKHHKRHEKKREHEE 

116 REM X*XASSIGN INVENTORIES* 

L2G REM KHEKKKKHKHHEKHHRHEKKHEHER 

136 GOSUB 1266 

14S REM KHEEKKHHKHHKHHEE 

156 REM *INSTRUCTIONS*® 

16GB REM KKHEKKHKKHKKHEKE 

176 GOSUB 19699 

166 REM X¥¥REPEAT UNTIL user quit 
SEK 

19H REM HXKKKKHHKHKKE 

2696 REM ¥CREATE MAZEX 

21GB REM KHEKHHKHKKHEE 

229 GOSUB 1499:NR=1:PRINT@448,"" 


236 REM **REPEAT UNTIL game over 


240 REM KHEKHKKHKKE 

250 REM *¥NEW ROOM?* 

26D REM KEKHKKKHKKHE 

2768 ON NR+1 GOSUB 2629,29099 
ZED REM HHEKKHKKHKKHKKHEE 

296 REM *PLAYER INPUT* 

SOD REM KHEKKHHKHKKHEE 

3190 GOSUB 25989 

SSF REM HKKKKHHKHKKHKKRHEEE 
346 REM *LEGAL MANOUVRE?* 
SSH REM HHEKKHKHHKHHKHKHEEE 
369 GOSUB 3096:IF Q=1 THEN 659 
42GB REM KHKKHKHHKHHEKHHHEER 
430 REM *VALID MANOUVRE?* 
G4 REM KKEKKKHHKHHKKHKHEHEE 
450 IF LG=1 THEN GOSUB 49990 
FED REM HHEKKHKHHKHHKKHEKEHEE 
470 REM *¥DRAGON RESPONSE* 
FSD REM KKKKKHHKHHKKEHKKRHEHEE 
490 GOSUB Seeg 

S9@ REM **XUNTIL game overk* 
S19 IF LOST=@ AND WON =@ THEN 27 


S2G REM KKEKKKKKKKKERE 

S30 REM *END OF GAMEX 

S4O REM KXKKKKKKERERE 

SS@ IF LOST=1 THEN GOSUB 4999 
S68 IF WON=1 THEN GOSUB 61990 

S7B REM KKKEKKKKKKKKKKEEK 

S88 REM *ANOTHER GAME? * 

SPD REM KKKKKKKKKKKKKEEK 

699 INPUT"DO YOU WANT ANOTHER GA 
ME"; US 

619 IF LEFTS(US$,1)¢>"N" THEN CLS 
:GOSUB 6269:GOTO 229 

6208 REM KKEKK 

630 REM *END* 

640 REM KKKKK 

658 END 
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This control program will remain the same no matter which 
version of the game we decide to write so we suggest that you 
CSAVE it for future use. 

The lines numbered less than 100 simply initialise the 
computer. Line 50 CLEARs an area of 500 bytes at the top of 
memory for the exclusive use of strings. Lines 60 and 70 
DIMension thearrayswhich the program will use, and line 90 
defines two functions which will be used later in the program. 
These operations will be explained more fully in a later section. 


Step 2. Assign Inventories. Now all we have to do is write the 
subroutines which are called from the main program. The first of 
these is given here. 


Listing 8.2 


1199 REM ¥ASSIGN INVENTORIES* 
1298 FOR N=9 TO 2 

1219 READ IAS(N,9),IAS(N,1) 

1229 NEXTN 

1239 FOR N= TO 6 

1249 READ IBS(N) 

125@ NEXT N 

1388 DATA GO,9123, TAKE, 56, OPEN, 4 
1319 DATA NORTH, SOUTH,EAST, WEST, 
DOOR, KEY, EMERALDS 

1339 DATA DAMP, MISERABLE, COLD,DA 
RK, SCARY, OPPRESSIVE, SMALL, GLOOMY 
, LARGE, DRAUGHTY 

1349 FOR N=@ TO 4 

1359 READ AJS(N,@),AJSI(N, 1) 

1369 NEXT N 

1379 RETURN 


Typethisin withthe control program. This routine assigns the 
inventories. The inventories are arrays containing all the words 
(verbs and nouns) which the program needs to be able to 
understand. 
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Step 3. Give Instructions. Instructions are needed to tell the 
player what to do in the game and what the aim is. However it is 
essential not to give too much information here — it is supposed to 
be a game of exploration and adventure after all! Combine the 
lines of listing 8.3 with your program to date. 


Listing 8.3 


999 REM *INSTRUCTIONS# 

1998 CLS:PRINT@3,"T RE ASUR 

E TRATIL" 

1919 PRINT@64,"YOU ARE IN THE DU 

NGEONS OF GORM, "3 

1929 PRINT"AND YOU ARE SEARCHING 
FOR A" 

1939 PRINT"CROWN OF EMERALDS” 
1949 PRINT TAB(3)3 "THE COMPUTER 

UNDERSTANDS THE" 

1959 PRINT"FOLLOWING VERBS: -"3 
1969 FOR N=@ TO 2:PRINT TAB(18)3 
ITAS(N,98) :NEXT N 

1199 PRINT@484, "PRESS ANY KEY TO 
START"§5 :AS=INKEYS 

1195 AS=INKEYS: IF AS="" THEN 119 
Ss 

1196 CLS: RETURN 


Step 4. Create the Maze. It is essential to make absolutely certain 
that you could win. This routine creates the maze and places the 
target, the Crown of Emeralds, and the player at RaNDom 
positions. There will always be a possible path from one to the 
other but the rest of the maze is decided at random. Listing 8.4 
gives the simplest version of the maze creation routine. 


Listing 8.4 


1399 REM *SET STATUS, PLACE CROW 
N & PLAYER* 
1499 PRINT TAB(13)5 "WAIT" 


1416 CE=RND(35) 
1429 X=RND(35):IF X=CE THEN 1429 
ELSE PR=X 

1429 REM ¥BUILD A PATH* 

1439 R=RND(4):0N R GOSUB 155,16 
58,1798, 1708 

1449 LS="O":IF KEY>@ THEN L#=L$+ 
ope 

1468 L=LEN(L®) :R=RND(L) :OS=MIDS ( 
L$,R,1) 

1479 IF O$="D" THEN KEY=KEY-1 
1489 Y=CE-X:IF YS THEN RMS(X,3) 
=0$:X=X+6:RMS(X,2)=0%:GOTO 1549 
1499 IF Y<-5S THEN RM&(X,2) =0%: X= 
X-6:RMS(X,3)=08:GOTO 1549 

1509 IF Y>@ AND (X+#1) /6<>INT((X+ 
1) 76) THEN RMS(X,4)=O0%: X=X+1: RMS 
(X,5)=08:GOTO 1549 

1519 IF Yo@ THEN RMS(X,3)=0%: X=X 
+6:RMS(X,2)=O0%:GOTO 1549 

1529 IF Y<@ AND X/6<>INT(X/6) TH 
EN RMS(X,5)=O%: X=%-1:RMS(X,4) =08 
:GOTO 1549 

155@ IF V¥<@ THEN RMS(X, 2) =O%:X=X 
-6:RMS(X, 3) =08 

1549 IF X=CE THEN GOSUB 1899:RMS 
(CE,@)="E":RETURN ELSE GOTO 1439 
1549 REM XDEPOSIT OBJECT* 

1559 LS="N":IF RND(@)>.5 THEN L& 
=LS+"K" 

1699 L=LEN(L®) :R=RND(L) :OS=MIDS( 
L$,R,1) 

1619 IF OS="K" THEN KEY=KEY+1 
1648 RMS(X, 9) =OS: RETURN 

1658 RETURN 

1788 RETURN 

1799 REM X¥COMPLETE MAZE* 

1698 OBS="NKN":L="0DW" 
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1665 L=LEN(LS) :O=LEN(O8) 
1819 FOR N=8 TO 35:FOR M=2 TO 5 
1626 IF RMS(N,M)="" THEN RMS(N,M 
)=MIDS(LS,RND(L), 1) 

1825 GOSUB 1959 

1838 NEXT M 

1849 IF N<6é THEN RMS(N,2)="W" 
1859 IF N>29 THEN RMS(N,3)="W" 
1868 IF (N+#1) /6=INT((N+1)/6) THE 
N RMS(N,4)="W" 

1879 IF N/6=INT(N/6) THEN RMS(N, 
S)="w" 

1898 IF RMS(N,S)="" THEN RMS(N,S 
)=MIDS (OBS, RND(O) ,1) 

1932 NEXT N 

1949 RETURN 

1949 REM ¥XCOMPLEMENTARY DOORS*¥* 
195g IF M=2 THEN IF NS THEN RMS 
(N-6,3) =RMS(N,M) RETURN 

1968 IF M=3 THEN IF N<3@ THEN RM 
S(N+6, 2)=RMS(N,M) ! RETURN 

197@ IF M=4 THEN IF (N4+1)/6<>INT 
((N#+1)/6) THEN RMS(N+1,5)=RMS(N, 
M) : RETURN 

1986 IF M=5 THEN IF N/6<>INT(N/6 
) THEN RMS(N-1,4)=RMS(N,M) :RETUR 
N 

1999 RETURN 


Step 5. Describe Situation. Describe the situation and 
surroundings to the plaver. At this point we embark on our 
adventure, and it is to this point that the program will return 

af ter our latest attempt at derring-do has met with total failure. 
When we enter each cave the computer describes it and the 
objects therein are detailed. It is this section which musi produce 
the excessive ver biage that is a pre-requisite of adventure games 
This routine produces a lot of pleonastic purple prose with much 
repetition and even tautology. Much of the information is, of 
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course, apocryphal. This task is dealt with by listing 8.5 which is 
given below. Once again we must key in the whole lot to add this 
function to our program. 


Listing8.5 


1999 REM ¥DESCRIBE ROOM* 

2098 N=RND(S)-1:M=RND(5S)-1:AS=AI 

$(N,@) :BS=AIS(M, 1) 

2919 PRINT"YOU ENTER A "3AS3", ” 
;BS;" "IF RND(@)>.S THEN PRINT” 
CAVE" ELSE PRINT"PASSAGE" 

2028 PRINT"YOU SEE: "$:IF RMS{(PR 
»9)="N" THEN PRINT "NOTHING": GOTO 
2119 

2049 IF RM$(PR,@)="E" THEN PRINT 
TAB(9)$"THE CROWN OF EMERALDS" 
2089 IF RM$(PR,@)="K" THEN ON RN 
D(4) GOSUB 2169,2179, 2188, 2199 
2119 FOR N=2 TO 5 

2120 IF RMS(PR,N)="0" OR RMS(PR, 
N}="D" THEN PRINT" THERE IS A DOO 
R TO THE ";IBS(N~2) 

2149 NEXT N 

2150 NR=@:RETURN 

2169 PRINT TAB(9)3"A RUSTY KEY": 
RETURN 

2178 PRINT TAB(9)3"A LARGE KEY": 
RETURN 

2189 PRINT TAB(9)3"A GOLDEN KEY” 
: RETURN 

2199 PRINT TAB(9);"A WOODEN KEY” 
!NR=9:RETURN 


Step 6. Player’s INPUT. Wemustallow the player to make his life 
and death decisions, carefully weigh the pros and cons and finally 
stumble blindly on. In other words, what do you want to do now? 
This routine will accept the commands of the player as typed in at 
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the keyboard. We must 2dd this section to our rapidly growing 
program (bear in mind that computer adventures are always fairly 
large programs so you might want to save your program a few 
times along the way as an insurance policy against power failure). 
Listing 8.6 below contains the instructions to accept INPUT. 


Listing 8.6 


2499 REM *¥*XPLAYER INPUT#* 

2599 PRINT@S11," ":PRINT@448, ""5 
2516 INPUT US 

25269 RETURN 


Step 7. Check INPUT is Legal. This section checks that what you 
typed actually made sense, e.g. that it uses a legal verb like GO or 
TAKE, and in a legal manner, such as GO NORTH. (GO BANANAS is 
not legal input). Type this section in from the next listing. 


Listing 8.7 


2999 REM ¥¥LEGAL MANOQUVRE?¥* 
39090 LG=9:IF INSTR(1,U%, "QUIT”) > 

6 THEN G=1:RETURN 

3919 IF LEFTS(US,1)=" ” THEN US= 
RIGHTS(US,LEN(US)-1):GOTO 3919 
3926 IF RIGHTS(U$,1)=" ” THEN US 
=LEFTS(US,LEN(US)-1):GOTO 3920 
3099 REM ¥INVENTORY SEARCH* 

3199 Z$="":Z1S="":Z2$="":L=INSTR 
(1,Us," ") 

3195 IF L=9 THEN W1%=US%:GOTO3129 
ELSE W1$=LEFTS( (US) ,L-1):REM FI 
ND VERB 

3119 ZS$=RIGHTS(US, LEN(US)-L):REM 
REST OF STRING 

3126 X=-1:FOR V=9 TO 2 

3136 IF W1i$=IAS(V,9) THEN X=V:V= 
2 

3149 NEXT Vv 
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3156 IF xX=-1 THEN RF=2: RETURN 
3159 REM FIND OBJECT OF VERB 
3166 LS=IAS(XK,1)°Y=-1 

3179 FOR N=1 TO LEN(LS) 

31386 M=VAL ("&H" +MIDS(LS,N,1)) 
3196 IF INSTR(1,2%, IBS(M))>9 THE 
N Z1$=IBS(M) 5 Y=M:N=LEN(LS} 

3266 NEXT N 

3216 IF Y=-1 THEN RF=3 ELSE LG=1 
3215 RETURN 


Step 8. Perform Instruction. Well, we'll try to! Just because GO 
NORTH seems like a reasonable idea doesn’t mean we can 
necessarily do it. There might be a blank wall in the way. There 
are so many possibilities that the routine is made up of many 
smaller routines which deal with individual words. This sort of 
further subdivision of tasks is a common feature in structured 
programs and makes both reading and writing them a lot easier. 


Listing 8.8 


3999 REM ¥XVALIDITY CHECK¥* 

4999 RF=9:0K=9:0N X+1 GOSUB 4199 
14299 ,4399 

4919 IF OK=1 THEN RF@#16 

4939 RETURN 

4999 REM #¥GOk* 

4199 REM 

4195 DR=-1:FOR N=@ To 3 

4119 IF INSTR(1,Z6,IB®(N))>@ THE 

N DR=N+2:N=3 

4129 NEXT N 

4125 IF DR=-1 THEN RF=14:RETURN 

4139 IF RM®(PR,DR)="O" THEN OK=1 
!PR=PR+FNR(DR) !NR#1!:RETURN 

4149 IF RM®(PR,DR)="D" THEN RF=5 
ELSE RF=4 

4159 RETURN 
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4199 REM *XTAKEXX 

4295 REM 

4219 IF RM®(PR,9)< 0LEFTS(IBS(Y), 
1) THEN RF=6: RETURN 

4229 OK=1:PS(Y-S)=PS(Y¥-5) +1 

4239 RMS(PR,O)="N" 

4249 RETURN 

4299 REM *XOPENK* 

4399 REM 

4395 IF PS(9)<1 THEN RF=7: RETURN 
4319 LD=8:DR=9:FOR N=9 TO 3 

4329 IF DR=@ THEN IF INSTR(1,2%, 
IBS(N))>@8 THEN DR=N+2 

4330 IF LD=@ THEN IF RM#(PR,N+2) 
="D" THEN LD=1 

4349 NEXT N 

4356 IF DR=9 THEN RF=14: RETURN 
4369 IF LD=@ THEN RF=8: RETURN 
4379 IF RMS(PR,DR)<>"D" THEN RF= 
8: RETURN 

4389 RMS(PR, DR) ="0":R=PR+FNR (DR) 
?DR=FND (DR?) :<RMS(R,DR) ="0" 

4399 PS(G)=PS(G)-1:K=-1:0K21:RET 
URN 


Step 9. Computer Response. By now we have figured out what 
has just happened with regard to the player’s commands. We 
need to tel! the player what he has (or more likely what he has 
not) achieved. Which response is given depends upon the RF 
response flag set by the previous routines. The choice of response 
is dealt with by listing 8.9 so add this to your program. 


Listing 8.9 


4999 REM ¥XRESPONSEX* 
5999 ON RF GOSUB 5299,5219,5229, 
5239,5249, 5250, 5269, 5279,5289,52 
99,5398, 5319,5328, 5339,5349, 5359 
,5499,5599,5519,5529 
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Soig IF PS(1)=1 THEN WON=1:RETUR 
N 

5929 IF LOST=1 THEN RETURN 

5138 RETURN 

S299 PRINT"WHAT?!"":RETURN 

S216 PRINT"I DO NOT KNOW THE VER 
B "js W1S:2 RETURN 

S228 PRINT"YOU CANNOT "jW1iS35" "5 
Z1%$3 ZS: RETURN 

S238 PRINT"YOU CANNOT GO "5§2:RE 


TURN 

S249 PRINT"THE DOOR IS LOCKED.";: 
RETURN 

S258 PRINT"I SEE NO "325" HERE” 
7RETURN 


S269 PRINT"BUT YOU DO NOT HAVE A 
KEY!" RETURN 

S278 PRINT"THERE IS NO LOCKED DO 
OR TO OPEN HERE": RETURN 

S339 PRINT"WHICH DIRECTION?": RET 
URN 

S359 PRINT"YOU "3 US 

S369 IF K=-1 THEN PRINT"BUT"$ 
5379 IF K=-1 THEN IF RND(@)>.S5 T 
HEN PRINT" THE KEY BREAKS": K#@ E 
LSE PRINT” THE KEY GETS STUCK, Y 
OU MUST LEAVE IT BEHIND.":K=g 
S399 RETURN 


Step 10. Check for End of Game. If the game is neither won nor 
lost we have to loop back to the description routine (Step 5). This 
task has been incorporated into the control program, so there is 
no need to have a separate LISTing for this routine. 


Step 11. End of Game Message. There are two routines in this 
section of which only one will be called, depending on whether 
the game has been won or lost. We will need to enter both, 
though, to guard against the possibility of success. So type in 
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both listings below (listings 8.1 la and 8.11b). 


Listing 8.11a 


S999 REM XXLOST#* 

69993 PRINT" YOU HAVE LOST THE GAM 
E, BAD LUCK" 

6919 RETURN 


Listing 8.11b 


6999 REM *#*XWONK* 

6199 PRINT"CONGRATULATIONS - YOU 
HAVE", "RECOVERED THE FABULOUS C 

ROWN OF EMERALDS!! WELL DONE!" 

6119 FOR N=1i TO 206 

6128 SOUND N,1 

6139 NEXT 

6148 RETURN 


Step 12. Round Again. This section of the control program asks 
the player if he wants another game, and if he does then the 
subroutine in Listing 8.12 is called, which resets the flags and the 
possessions array (more about that later) and RETURNS to the 
control program, which promptly loops back to Step 3. If , on the 
other hand, the player answers “NO” then the control program 
carries on to its last statement — END. This produces the usual 
chirpy OK and puts the computer back in command mode. 


Listing 8.12 


6199 REM *#RESET# 

6289 WON=6:LOST=68 
6219 FOR N=S TO 5 
6229 PS(N)=8 

6239 NEXT N 

6299 RETURN 


And 


Listi. 
19 
208 
38 
40 
so 
69 
(2) 
78 
ss 
Bo 
968 
ND 
S): 
+(D 
199 
1198 
126 
1328 
1498 
1528 
169 
78 
1389 
SEK 
199 
288 
218 


that’s it! Your final listing should look like this: 


ng 8.13 


REM KKEKKKKKKKKKKREEK 

REM *¥TREASURE TRAIL* 

REM KEKKKKKKKKEKKKEEE 

REM ** INITIALISE DRAGON ** 
CLEAR S99 

DIMIAS(7,1): DIMIBS(19) : DIMICS 


DIMRM$(35,5) :DIMAJ$(4,1):DIMP 
) 
FOOD=9: BATTERIES=9: MN=9 

DEF FNR(DR)=(6 AND DR=3)-(6 A 
DR=2)+(1 AND DR=4)-(1 AND DR= 
DEF FND(DR)=DR- (DR=2 OR DR=4) 
R=3 OR DR=5) 

REM KHEKKKKHKHHEKHHEKEHEEHEHHE 

REM *¥ASSIGN INVENTORIES* 

REM HHEKKHEKHHEKKEHHKEHEHHEHEKEE 
GOSUB 1299 

REM KEKKHEKHKKREKKEE 

REM *¥INSTRUCTIONS* 

REM KEEKHHKHHKHEKEK 

GOSUB 1999 

REM **#REPEAT UNTIL user quit 


REM KXKKKKKKERKEK 
REM *CREATE MAZE* 
REM KXKKKKKKKEREK 
GOSUB 1499: NR=1:PRINT@448,"" 


REM **REPEAT UNTIL game over 
REM HHKKKKHKK HE 


REM *NEW ROOM?* 
REM KKEKEKKKKKKEE 
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S9d 
699 


ON NR+1 GOSUB 26926, 2989 
REM KHXKKHKKHHKHHKE 

REM *¥PLAYER INPUT® 

REM KXKKKKHHKHHKHE 

GOSUB 2599 

REM HHHKKKKKHKHHKKHKE 

REM *LEGAL MANOUVRE?* 

REM KEKKKHKHKKHHKHHEK 
GOSUB 3090:IF Q=1 THEN 659 
REM KXKKKKKHKHHKKHRHEE 

REM X¥VALID MANOUVRE?*¥ 

REM HXKKKKKHKHHKKHHRHEE 

IF LG=1 THEN GOSUB 4999 
REM HHKKHKKHKHHKHHKHHE 

REM X¥DRAGON RESPONSE* 

REM KHKKHKHHKHHKHHHRHE 
GOSUB S999 

REM ¥*UNTIL game overk** 

IF LOST=@ AND WON =@ THEN 27 


REM KXXKKKKKKKKEE 

REM *END OF GAME* 

REM KXXKKKKKKKKKK 

IF LOST=1 THEN GOSUB 46999 

IF WON=1 THEN GOSUB 6199 
REM KXXKKKHEKKKKKKEEK 

REM *ANOTHER GAME?* 

REM XXXXKKKKKKKKKKE 

INPUT"DO YOU WANT ANOTHER GA 


ME"; US 


619 


IF LEFTS(US,1)<>"N" THEN CLS 


:GOSUB 6299:GOTO 229 


628 
6308 
648 
659 
999 


REM XXX 

REM *XEND* 

REM KKK 

END 

REM *INSTRUCTIONS*® 


1988 CLS:PRINT@3,"TREASUR 

E TRAIL" 

1918 PRINT@64, "YOU ARE IN THE DU 

NGEONS OF GORM, "3 

1920 PRINT"AND YOU ARE SEARCHING 
FOR A” 

1938 PRINT"CROWN OF EMERALDS" 
1948 PRINT TAB(3)3"THE COMPUTER 

UNDERSTANDS THE* 

1958 PRINT"FOLLWING VERBS:~"3 
1968 FOR N=@ TO 2:PRINT TAB(18)3 
IAS(N,@):NEXT N 

1198 PRINT®484, "PRESS ANY KEY TO 
START "3 :AS=INKEYS 

1195 AS=INKEYS:IF AS="" THEN 119 

5 

1196 CLS:RETURN 

1199 REM ¥ASSIGN INVENTORIES* 
1208 FOR N= TO 2 

1219 READ IAS(N,@),IAS(N, 1) 

1220 NEXTN 

1238 FOR N=@ TO 6 

1248 READ IBS(N) 

1258 NEXT N 

1388 DATA GO,8123, TAKE, 56,OPEN,4 
131@ DATA NORTH, SOUTH, EAST,WEST, 

DOOR, KEY, EMERALDS 

1338 DATA DAMP,MISERABLE,COLD,DA 

RK, SCARY, OPPRESSIVE, SMALL, GLOOMY 
, LARGE, DRAUGHTY 

1349 FOR N= TO 4 

13508 READ AJS(N,@),AIJSIN, 1) 

1368 NEXT N 

137@ RETURN 

1399 REM ¥SET STATUS, PLACE CROW 

N & PLAYERX 

1488 PRINT TAB(13)3 "WAIT" 
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1419 CE=RND (35) 
1429 X=RND(35)!:IF X=CE THEN 1429 
ELSE PR=X 

1429 REM ¥BUILD A PATH¥ 

1439 R=RND(4):0N R GOSUB 155,16 

59,1798,1799 

1449 LS="0":IF KEY>@ THEN LS=L$+ 
eps 

1469 L=LEN(LS):R=RND(L) :OS=MIDS ( 

L$,R,1) 

1479 IF OS="D" THEN KEY=KEY-1 
1489 Y=CE-X!IF Y>5 THEN RMS(X,3) 

=O0$! X=X+6:RMS(X,2)=0%:GOTO 1549 
1499 IF Y<-5S THEN RM&(X,2)=08:X= 

X-6:RMS(X,3)=0%:GOTO 1549 

1598 IF Y>@ AND (X41) /6<>INT((X+ 
1)/6) THEN RMS(X,4)=O0%:X=X+1:RMS 
(X,5)=0%:GOTO 1549 

1519 IF YS THEN RMS(X,3) =O: X=X 
+6:RMS(X,2)=0%:GOTO 1549 

1529 IF Y<@ AND X/6<>INT(X/6) TH 

EN RMS(X,5)=0%:X=X-1:RMS(X,4)=0% 
:GOTO 1549 

1539 IF Y<@ THEN RMS(X,2)=O0%:X=X 

-6:RMS(X,3)=0% 

1549 IF X=CE THEN GOSUB 1899:RMS 
(CE,@)="E":RETURN ELSE GOTO 1439 
1549 REM ¥DEPOSIT OBJECT¥ 

1559 LS="N":IF RND(@)>.5 THEN L& 

=L$+"K" 

1698 L=LEN(L®) :R=RND(L) :OS=MIDS( 

L$,R,1) 

1619 IF OS="K" THEN KEY=KEY+1 
1649 RMS(X,@) =0S:RETURN 

1659 RETURN 

1708 RETURN 

1799 REM XCOMPLETE MAZEX 


18968 OBS="NKN":LS="ODW" 
1885 L=LEN(LS) :O=LEN (08) 

1818 FOR N=@ TO 35:FOR M=2 TO 5 
1826 IF RMS(N,M)="" THEN RMS(N,M 
)=MIDS(LS,RND(L) , 1) 

1825 GOSUB 1959 

1838 NEXT M 

1848 IF N<6é THEN RMS(N,2)="W" 
1858 IF N>29 THEN RMS(N,3)="W" 
1868 IF (N+1)/6=INT((N+1)/6) THE 
N RMS(N,4)="W" 

8790 IF N/6=INT(N/6) THEN RMS(N, 
Sy="w" 

1899 IF RMS(N,@)="" THEN RMS(N,@ 
) =MIDS(OBS,RND(O),1) 

1938 NEXT N 

1949 RETURN 

1949 REM ¥XCOMPLEMENTARY DOORS** 
195@ IF M=2 THEN IF N>S THEN RMS 
(N-6, 3) =RMS(N,M) s RETURN 

1968 IF M=3 THEN IF N<3@ THEN RM 
S(N+6,2) =RMS(N,M) : RETURN 

1970 IF M=4 THEN IF (N#1)/6<>INT 
((N+1)76) THEN RM&(N+1,5)=RMS(N, 
M) : RETURN 

1988 IF M=S THEN IF N/6<>INT(N/6 
) THEN RMS(N-1,4)=RMS(N,M) SRETUR 
N 

1998 RETURN 

1999 REM *¥DESCRIBE ROOM* 

2090 N=RND(5S)-1:M=RND(5S)-1:AS=AI 
S(N,G):BS=AIS(M, 1) 

2619 PRINT"YOU ENTER A "JABS", " 


5BS;" "IF RND(9@)>.5 THEN PRINT" 
CAVE" ELSE PRINT"“PASSAGE" 
2629 PRINT"YOU SEE: "3:IF RMS(PR 


»8)="N" THEN PRINT“NOTHING": GOTO 
2119 
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2049 IF RMS(PR,@)="E" THEN PRINT 
TAB(9)3 "THE CROWN OF EMERALDS" 
2080 IF RMS(PR,@)="K" THEN ON RN 

D(4) GOSUB 2168, 2179, 2189,2199 
2119 FOR N=2 TO 5 

2128 IF RMS(PR,N)="0" OR RMS(PR, 
N)="D" THEN PRINT" THERE IS A DOO 
R TO THE ";IBS(N-2) 

2148 NEXT N 

2158 NR=@:RETURN 

2168 PRINT TAB(9)3"A RUSTY KEY": 
RETURN 

2170 PRINT TAB(9)3"A LARGE KEY": 
RETURN 

21890 PRINT TAB(9):"A GOLDEN KEY" 
: RETURN 

2198 PRINT TAB(9)$"A WOODEN KEY" 
:NR=@:RETURN 

2499 REM X*¥PLAYER INPUT#* 

2590 PRINT@S11," "“:PRINT@448, ""5 
2518 INPUT US 

2520 RETURN 

2999 REM **LEGAL MANOUVRE?¥* 
39808 LG=O:IF INSTR(1,U%, "QUIT”) > 

@ THEN Q=1:RETURN 

318 IF LEFTS(US,1)=" " THEN US= 

RIGHTS(US,LEN(US)-1):GOTO 3@19 

3920 IF RIGHTS(US,1)=" " THEN US 

=LEFTS(US,LEN(US)-1):GOTO 3820 
3999 REM *INVENTORY SEARCH* 

3198 ZS$="":Z1s="":Z2$="":L=INSTR 
(1,Us," ") 

3195 IF L=@ THEN W1$=US:GOTO3120 
ELSE W1S=LEFTS((US),L-1):REM FI 

ND VERB 

3119 ZS$=RIGHTS(US, LEN(US) -L) :REM 
REST OF STRING 

3128 X=-1:FOR V=9 TO 2 


3139 IF W1$=IAS(V,9) THEN X=ViV= 
2 

3149 NEXT v 

3159 IF X=-1 THEN RF=2:RETURN 
3159 REM FIND OBJECT OF VERB 
3169 LS=IAS(X,1):Y=-1 

3178 FOR N=1 TO LEN(L®) 

3189 M=VAL ("&H"+MIDS(LS,N, 1)) 
3198 IF INSTR(1,2%,IBS(M))>@ THE 
N Zi$=IBS(M) :Y=M:N=LEN (LS) 

3299 NEXT N 

3219 IF Y=-1 THEN RF=3 ELSE LG=1 
3215 RETURN 

3999 REM X¥VALIDITY CHECK¥* 

4999 RF=9:O0K=9:0N X+1 GOSUB 4199 
» 4296, 4398 

4919 IF OK=1 THEN RF=16 

4938 RETURN 

4999 REM ¥*¥GOX* 

4199 REM 

4195 DR=-1:FOR N= TO 3 

4119 IF INSTR(1,2%,IBS(N))>@ THE 
N DR=N+2:N=3 

4120 NEXT N 

4125 IF DR=-1 THEN RF=14: RETURN 
4139 IF RMS(PR,DR)="0" THEN OK=1 
:PR=PR+FNR (DR) :NR=1: RETURN 

4149 IF RMS(PR,DR)="D" THEN RF=5 
ELSE RF=4 

4159 RETURN 

4199 REM ¥#TAKEX* 

4280 REM 

4210 IF RMS(PR,@)<>LEFTS(IBS(Y), 
1) THEN RF=6:RETURN 

4229 OK=1:PS(Y-5)=PS(Y-S) +L 

4230 RMS(PR,@)="N" 

4249 RETURN 

4299 REM ¥XOPENX* 
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4399 REM 
4365 IF PS(@)<1 THEN RF=7:RETURN 
4319 LD=9:DR=9:FOR N=9 TO 3 

4326 IF DR=@ THEN IF INSTR(1,2Z%, 
IBS(N))}>@ THEN DR=N+2 

4339 IF LD=@ THEN IF RMS(PR,N+2) 
="D" THEN LD=1 

4349 NEXT N 

4350 IF DR=@ THEN RF=14:RETURN 
4369 IF LD=@ THEN RF=8:RETURN 
4379 IF RMS(PR,DR)<>"D* THEN RF= 
@:RETURN 

4389 RMS(PR, DR) ="0"%:R=PR+FNR(DR) 
:DR=FND(DR) :RMS(R,DR)="0" 

4399 PS(G)=PS(G)-1:K=-1:0K=1:RET 
URN 

4999 REM ¥*#RESPONSEX* 

5999 ON RF GOSUB 5299,5219,5229, 
5230, 5249, 5259,5269,5279,5289,52 
99,5398 ,5319,5328,5339,5349,5359 
»5499,5599,5519,5529 

5919 IF PS(1)=1 THEN WON=1:RETUR 
N 

5929 IF LOST=1 THEN RETURN 

51390 RETURN 

5208 PRINT*WHAT?! *:RETURN 

5219 PRINT”I DO NOT KNOW THE VER 
B "sW1%:RETURN 

5229 PRINT"YOU CANNOT "jW1S3" "5 
Z1%}Z: RETURN 

5239 PRINT"YOU CANNOT GO "3; Z%:RE 


TURN 

5249 PRINT*THE DOOR IS LOCKED. ”: 
RETURN 

S259 PRINT"I SEE NO "$;2%5" HERE” 
: RETURN 


5269 PRINT"BUT YOU DO NOT HAVE A 
KEY!" RETURN 


5279 PRINT"THERE IS NO LOCKED DO 
OR TO OPEN HERE”:RETURN 

S339 PRINT*"WHICH DIRECTION?": RET 
URN 

S359 PRINT"YOU ";US 

5369 IF K=-1 THEN PRINT"BUT"; 
5379 IF K=-1 THEN IF RND(@)>.5 T 
HEN PRINT" THE KEY BREAKS": K=9 E 
LSE PRINT” THE KEY GETS STUCK, Y 
OU MUST LEAVE IT BEHIND.":kK=9 
5399 RETURN 

S999 REM XKXLOSTH* 

6999 PRINT"YOU HAVE LOST THE GAM 
E, BAD LUCK" 

66818 RETURN 

6999 REM KKWONKK 

6199 PRINT"CONGRATULATIONS - YOU 
HAVE”, "RECOVERED THE FABULOUS C 
ROWN OF EMERALDS! ! WELL DONE!” 

6119 FOR N=1 TO 299 

6129 SOUND N,1t 

6139 NEXT 

6149 RETURN 

6199 REM ¥RESET* 

6299 WON=9:LOST=9 

6219 FOR N=9 TO 4 

6229 PS(N)I=9 

6239 NEXT N 

6299 RETURN 
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I suggest that you CSAVE it immediately, before Grandma comes 
over again! When you’ve done that, RUN the program and see if 


you can find the Crown of Emeralds. GOOD LUCK! 
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ADDING FEATURES TO THE GAME 


Now that we have our basic (nopun intended) game, we can 
think about adding various additional features to it. The features 
which can be added are limited only by your imagination (and the 
Dragon’s memory of course). In the following sections we will see 
how to add five sets of additional features and by the end of this 
section you should have a reasonable idea of how the system 
works. Chapter 9 goes into the details of planning behind the 
various routines and by the end of that chapter you should be 
able to make your own alterations. 

The program is designed so that features can be stuck on to it 
like Lego bricks — in a similar way to that in which we could add 
the ability to move up and down (for example) in our arcade 
game. There is a dif ference, however, due to the very nature of 
the game. Whereas in the arcade game, the routine for (say) 
moving the alien didn’t give a hoot whether you could move up 
and down or not, in the adventure game alterations need to be 
made to almost all sections when a new feature is added. This is 
like the suggested alteration toallowa highscore to be kept in the 
arcade game. In that case we had to go through the program 
altering quite a few of the routines to allow for the new feature. In 
just the same way we are going to have to go methodically 
through our adventure routines adding lines to each procedure. 


FOOD AND STRENGTH 


The first feature which we add we willcall FOOD & STRENGTH. 
The first thing to do to it is figure out how this feature is related 
to the game scenario. 


We conjure up an evil force which pervades the chill caverns in 
which we are adventuring. The constant forces of cold and evil 
sap your physical and spiritual strength. To combat this we 
will have food which restores your fitness, body and soul. If 
however you do not find any food you will weaken and die! 


The first section we have to add is given in listing 8.2a and this is 
adding to the inventory of objects in the dungeon. After all, if we 
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are going to put food in the maze, the computer is going to need 
to know about it. So, with your original game in memory, add in 
the following lines. 


Listing 8.2a 


1288 FOR N=@ TO 3 

1238 FOR N=@ TO 7? 

1388 DATA GO,@123, TAKE,567, OPEN, 
4,EAT,76 

1318 DATA NORTH, SOUTH, EAST, WEST, 
DOOR, KEY, EMERALDS, FOOD 


The next thing we need to do is to tell the player about the 
presence of the food and the evil spirit. We add these lines to the 
instruction routine (listing 8.3a). 


Listing 8.3a 


1968 FOR N=@ TO 3:PRINT TAB(18)3 
IAS(N,@)!NEXT N 

1978 PRINT@458, "PRESS ANY KEY TO 
CONTINUE"; : AS=INKEYS 

1988 AS=INKEYS:IF AS="" THEN 198 

g 

1985 CLS 

1119 PRINT:PRINT"THERE IS AN EVI 

L FORCE IN THE" 

1128 PRINT"DUNGEONS, AND IT DRAI 
NS YOUR" 

113@ PRINT"STRENGTH, BUT IF YOU 
ARE LUCKY" 

114@ PRINT"ENGUGH TO FIND THE MA 
GIC FOOD," 

1158 PRINT"YOU MAY SURVIVE." 


We now need to set the strength of the player and also change the 
“create maze” routine so that it distributes some food around the 
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place as well as the other things. Add the couple of lines given in 
listing 8.4a to take care of this. 


Listing 8 .4a 


1495 ST=1999 
1586 IF RND(9)>.7 THEN LS=L$+"F” 


The next thing to add isa line to make the computer tell us if 
there is actually some food in the room when we enter it. This is 
done by the line in listing 8.5a 


Listing 8 5a 


26668 IF RMS(PR,O)="F" THEN PRINT 
TAB(?)3 "SOME FOOD" 


Ofcourse at some stage we are going to wantto EAT FOOD. so the 
computer must recognise this as a legal command. Add these 
lines to the legality checking procedures (listing 8.7a). 


Listing 8 .7a 


3128 X=-1:FOR V=68 TO 3 

S136 IF W1S=IAS(V,8) THEN X=V:V= 

Similarly, we must add a routine to deal with an EAT command. 
Listing 8.8a has the lines to alter this section to call a new routine 
which deals with EATing. 


Listing 8.8a 


4996 RF=6:0K=6:0N X+1 GOSUB 4199 
14299, 4308, 4499 

4399 REM ¥XEATHX 

4400 REM 

4495 IF PS(Y-5)<1 THEN RF=19:RET 
URN 

4410 IF IBS(Y)<>"FOOD" THEN RF=1 
1:RETURN 
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4429 OK=1:PS(2)=PS(2)-1:S5T=1999 
44398 RETURN 


Finally to make life more fun add listing 8.9a to the response 
section. This will deal with PRINTing messages for the various 
eating habits possible and also add lines to warn the player of 
impending doom. 


Listing 8.9a 


S839 ST=ST-398:IF ST>S8G THEN S19 
g 

S849 IF ST>498 THEN PRINT“YOUR S 
TRENGTH IS FADING.":GOTO S199 
S958 IF ST+388 THEN PRINT"YOU AR 

E GETTING VERY WEAK":GOTO 5199 

S868 IF ST>268 THEN PRINT"YOUR S 
TRENGTH IS EBBING FAST - YOU CA 

N’T GO ON MUCH LONGER":GOTO 5199 
S879 IF ST?198 THEN FRINT"IF YOU 
DON’T EAT SOGN, YOU’ VE HAD IT 
'";GOTS S199 

Sese IF ST? THEN PRINT"YOU’RE O 

N YOUR LAST LEGS MATE!":GOTO 519 

g 

S899 PRINT"YOU HAVE DIED OF EXHA 

USTION! ":LOST =1: RETURN 

S199 RETURN 

S298 PRINT" ‘OU DO NOT HAVE THE “ 
3Z$: RETURN 

S388 PRINT"YOU EAT THE "3285". Y 

ou", "CHOKE TO DEATH! ":LOST=1:RET 

URN 


That completes our first modification. RUN the program and 
convince yourself that no disasters have occurred. 
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TORCH AND BATTERIES 


Our next modification deals with TORCH & BATTERIES supplies. 


You have a torch, and it’s just as well, because the resident 
goblins don’t like the light. What they would like, though, is to 
eat you. In fact they think that you're the best thing since 
sliced bread and preferably between slices as a snack for them. 
If your torch goes out then... The problem is that your 
batteries only last for 15 minutes, so unless you can find some 
more within that time, you will be eaten. 


Well, that should put the pressure on a bit. Once again we will 
need to make modifications to several routines and as before the 
first place to add things is in the inventory. Add listing 8.2b. 


Listing 8.2b 


1236 FOR N=S TO 8 
13868 DATA GO,6123, TAKE, 5678, OPEN 
»4,EAT, 768 

1318 DATA NORTH, SOUTH, EAST, WEST, 
DOOR, KEY, EMERALDS, FOOD, BATTERIES 


We need to tell the player too (unless you are feeling heartless) so 
add the lines of listing 8. 3b to the instructions routine. 


Listing 8 .3b 

1169 PRINT: PRINTTAB(3)53 "ALSO, ON 
LY YOUR TORCHLIGHT” 

1170 PRINT*STOPS THE GOBLINS FRO 
M EATING" 

1186 PRINT”"YOU, AND BATTERIES ON 
LY LAST 15 "5; "MINUTES! GooD LUC 
Ke 


Now we need to let the maze creation routine know there are 
extra objects to be distributed and we must also set the TIME 
variable to allow us to keep track of the number of turns you’ve 
had. Add listing 8.4b. 
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Listing 8.4b 


1495 ST=1999: TIMER=9 
1699 OBS="NKBN";L$="ODW" 


Add the following to the room description routine. 


Listing 8.5b 


29079 IF RMS(PR,9)="B" THEN PRINT 
TAB(?)3; "SOME BATTERIES" 


Listing 8.8b will save your b(e)acon if you pick up some 
batteries. 


Listing 8.8b 
4225 IF Y=8 THEN TIMER=9 


Now give the computer a few words to say to tell you what a mess 
you’re making of the game. 


Listing 8.9b 


S199 TM=15-INT(TIMER/3999) 

Sii@ IF TM<1 THEN PRINT" YOUR TOR 
CH HAS GONE OUT.","THE GOBLINS H 
AVE EATEN YOU." :LOST=1: RETURN 
Si290 IF TM<é THEN PRINT"YOUR BAT 
TERIES HAVE ONLY"3 TM, "MINUTES PO 
WER LEFT" 


And that’s it! Try the game again and see if you survive. 
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TROLLS, RUN, FIGHT AND TELEPORT 


If you have not met the goblins yet you might be feeling lonely 
wandering around the maze, so how about introducing some 
trolls to keep you company! 


Trolls are lurking in the caves, and you never know when you 
are about to stumble upon one of these thin, rubbery and 
loathsome creatures. When you do you will have to decide 
whether to run or fight — if you try to doanythingelse he will 
attack you anyway. Fortunately you can usually beat him ina 
fight (although this might not be the case if your strength is 
low). If you find yourself cornered you have one other option — 
teleport — but heaven knows where you will end up if you use 
it, and it weakens you considerably to do so. 


This modification has brought in the three new verbs RUN, FIGHT 
and TELEPORT and one new noun TROLL. Also it seems that 
tangling witha troll willaffiecta player’s strength (as will 
teleporting) and that the presence of a troll will prevent him from 
picking up objects, opening doors etc. We begin to see how 
closely interrelated things become in adventure games as soon as 
they have more than one or two features. Implementing this 
feature follows the same pattern as the previous modifications. 
First of all we add the new words in listing 8.2c. 


Listing 8.2c 


Q 


FOR N=@ TO 6 
FOR N=@ TO @ 

READ ICS(N) 

NEXT N 

1388 DATA GO,@123, TAKE, 5678, OPEN 
»4,EAT, 768, RUN, ,FIGHT,, TELEPORT, 
1328 DATA TROLL 


RRR 
JN NN 
NO 

RQa 


- 
h. 

oO 
Q 


Next we give the player a cryptic hint of what is tocome with the 
addition of listing 8 .3c to the instructions. 
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Listing 8 .3c 


1868 FOR N=@ TO 6:PRINT TAB(18)5 
IAS(N,@) NEXT N 

19998 PRINT"THERE ARE HIDDEN HAZA 
RDS IN THE "5 

1199 PRINT"DUNGEONS, WHICH YOU W 
ILL HAVE TO"; "OVERCOME. * 


Again we alter the maze routine to deposit a few trolls on its way 
to creating a maze. 


Listing 8.4c 


1649 REM ¥DEPOSIT HAZARD* 

1650 LS="N":IF RND(@)>.S THEN L® 
=LS+"T" 

1670 L=LEN (LS) :R=RND(L) :OS=MIDS ( 
L$,R,1) 

1698 RMS(X, 1)=08 

1808 OBS="NKBN":L$="ODW":HS="NTN 
1605 L=LEN(LS):O=LEN(0$) :H=LEN(H 
$) 

1895 IF RMS(N,1)="" THEN RMS(N, I 
) =MIDS(HS,RND(H),1) 


Next we make certain that the computer is actually going to tell 
you when you bump into a troll. Add listing 8.5c 


Lisung 8.5c 


2620 PRINT“YOU SEE: "3: IF RMS(PR 
»9)="N" AND RMS(PR,1)="N" THEN P 

RINT*NOTHING"”: GOTO 21198 

2099 IF RMS(PR,1)="T" THEN PRINT 
TAB(9)3 "A SMELLY TROLL": MN=1 
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As before we have to alter the routine to recognise valid 
commands so that it will accept these words. This is done by 
listing 8.7c. 


Listing 8.7¢ 


3126 X=-1:FOR V=8 TO 6 

3130 IF W1iS=IAS(V,9) THEN X=V:V= 
6 

3155 IF X>3 THEN LG=1:RETURN 


You have probably noticed by now that the routine to perform 
verbs has one smaller section for each verb. The following listing 
contains routines for each of RUN, FIGHT and TELEPORT. Type in 
all of the listing given below. 


Listing 8 .8c 


4999 RF=@:0K=@:0N X+1 GOSUB 4199 
14298, 4398, 4499, 4799, 4899, 4999 
4929 IF MN=1 AND RF<>12 THEN RF= 
17 

4199 IF MN=1 THEN RETURN 

4290 IF MN=! THEN RETURN 

4399 IF MN=1 THEN RETURN 

4499 IF MN=1 THEN RETURN 


4699 KKRUNKEX 

4799 IF RMS(PR,1)="N" THEN RF=1: 
RETURN 

47985 FOR N=2 TO S 

4719 DR=9:1IF RMS(PR,N)="0" THEN 
DR=N;N=5 

47298 NEXT N 

4739 IF DR=@ THEN RF=29: RETURN 
4749 PR=PR+FNR(DR) | MN=9:RF=18:2NR 
=1 

4758 RETURN 
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4799 REM **XFIGHT#*¥ 

4899 IF RMS(PR,1)="N" THEN RF=1: 
RETURN 

4819 MN=9:ST=ST-RND(199) 

4829 RMS(PR,1)="N"2RFH=19 

4839 RETURN 


4899 REM *¥X¥TELEPORT#* 

4999 NR=1:PR=RND(36)-1:ST=ST-299 
4919 RF=16:MN=9 

4929 RETURN 


Finally we add listing 8.9c to the response section and we’re 
finished. 


Listing 8 .9c 


S499 PRINT*YOU TRY TO "$US, "BUT 
YOU ARE ATTACKED BY THE " 

5429 IF RMS(PR,1)="T" THEN PRINT 
"SMELLY TROLL" 

5439 R=RND(199)+199:ST=ST-R 

5449 RMS(PR,1)="N"i:MN=9 

S459 IF ST<i1 THEN LOST=1 

S469 IF ST<1 THEN PRINT"YOU ARE 

TOO WEAK TO KILL HIM, HEEATS YOU 
5479 IF ST>@ THEN PRINT"YOU KILL 
HIM, HE CRUMBLES TO DUST" 
5489 RETURN 

S5S@9 FRINT"YOU RUN "5 IBS(DR-2):R 
ETURN 

S519 PRINT"YOU FIGHT THE BEAST, 
YOU STAVE IN HIS SKULL. HE CRU 
MBLES TO DUST": RETURN 

S529 PRINT"YOU CANNOT RUN - THE 
ENTRANCES ARE CLOSED": RETURN 


RUNthe program again and look out forthe trolls! 
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MONSTERS AND MAGIC DUST 


Well, things are starting to hot up a bit now, aren’t they? Now for 
another action packed feature. 


Monsters are found in the dungeons. These have the same 
effect on you as trolls but nastier. There are also little piles of 
magic dust in the labyrinths. If you throw this at the monsters 
then they will vanish. 


This introduces another verb, THROW’, and two more nouns, 
MONSTER and MAGIC DUST, so the first thing to do is add these 
to the inventory section. 


Listing 8.2d 


1298 FOR N=@ TO 7 
1230 FOR N=8 TO 9 

1268 FOR N=@ TO 1 

1388 DATA GO,9123, TAKE, 56789, OPE 
N,4,EAT, 7689,RUN, ,FIGHT,, TELEPOR 
T,, THROW, 56789 

131@ DATA NORTH, SOUTH,EAST, WEST, 
DOOR, KEY, EMERALDS, FOOD, BATTERIES 
»MAGIC DUST 

1328 DATA TROLL,MONSTER 


Add listing 8.3d to tell the player he can THROW things. 


Listing 8.3d 


1969 FOR N=@ TO 7:PRINT TAB(18)35 
IAS(N,9) sNEXT N 


As usual we have to change the maze creation routine so that it 
puts the new objects into the maze. We will also make sure that 
there is always a monster guarding the Crown of Emeralds. To do 
this we add the next listing. 
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Listing 8.4d 


1546 IF X=CE THEN GOSUB 1899: RMS 
(CE,9)="E"2RMS(CE,1)="M" 2 RETURN 

ELSE GOTO 1439 

15768 IF RND(@)>.6 THEN LS=L$+"M" 
1630 IF OS="M" THEN MD=MD+1 

16696 IF MD>@ THEN IF RND(9)>.8 T 
HEN LS=L$+"M" 

1630 IF OS="M" THEN MD=MD-1 

1860 OBS="NKBN":L$="ODW":HS="NTM 
N" 


Now we need to add listing 8.5d to make sure the player is fully 
informed when he enters a room. 


Listing 8.5d 


2050 IF RMS(PR,O)="M" THEN PRINT 
TAB(9)5"SOME MAGIC DUST” 

2198 IF RMS(PR,1)="M" THEN PRINT 
TAB(9)3 "A HIDEOUS MONSTER": MN=1 


Now we must extend the legal input check procedure to check 
that you have thrown something which is throwable (e.g. not a 
door). Add listing 8.7d to the program. 


Listing 8.7d 


3129 X=-1:FOR V=9 TO 7? 

3138 IF Wis=IAS(V,9) THEN X=V:V= 
7? 

3155 IF X>3 AND X<7 THEN LG=1:RE 
TURN 

3219 IF Y=-1 THEN RF=3:RETURN 
3215 REM 

3228 IF X<? THEN LG=1:RETURN 
3229 REM FIND TARGET 

3239 L=INSTR(1,2%,2Z1%):Z=-1 
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3249 ZS$=LEFTS(Z$,L-1)+RIGHTS(23, 
LEN(Z$) ~- (L+#LEN(2Z1$)))2REM REMOVE 
OBJECT FROM 2% 

3259 FOR N=9 TO 1 

3269 IF INSTR(1,2%,ICS(N))>@ THE 
N Z2$=I1C$(N) 5 Z=N:N=1 

3279 NEXT N 

326@ IF Z<>-1 THEN LG=1: RETURN 
3299 FOR N=4 TO 9 

3399 IF INSTR(1,2%, IB$(N))>9 THE 
N Z2%=I BS(N) 5 Z=-N: N=9 

3319 NEXT N 

3329 IF Z2=-1 THEN RF=1 ELSE LG=1 
3339 RETURN 


Withanewverb wemust obviously have a new action procedure 
to perform the required task. The listing for THROW is given in 
listing 8.8d. 


Listing 8.8d 


4999 RF=9:0K=@:0N X+1 GOSUB 4199 
14299, 4398,4499,4799,4899,4999,4 
599 

4499 REM *¥XTHROWX* 

4599 IF PS(Y-5)<1 THEN RF=19:RET 
URN 

4529 IF Z>@ THEN IF LEFTS(Z2s,1) 
<>RMS(PR,1) THEN RF=6: RETURN 
4539 IF Z<@ THEN IF LEFTS(Z2$,1) 
<ORMS(PR,@) THEN RF=6: RETURN 
4549 IF Z1s<>"MAGIC DUST" THEN 4 
569 

4545 MD=-1 

4559 OK=1:PS(Y-5)=PS(Y-5)-1 

4569 IF Z>=@ THEN RMS(PR,1)="N": 
MN=@ ELSE RMS(PR,9)="N* 

4579 RETURN 

4589 REM 

4679 RF=13:PS(Y-5) =PS(Y-5)-1 
4689 IF Z2$="MONSTER" OR Z2%="TR 
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OLL" THEN RF=12 
4699 RETURN 


Finally for this section we add listing 8.9d to allow the Dragon to 
make the appropriate responses. 


Listing 8.9d 


5319 PRINT“YOU THROW "3Z1%3" AT 
THE “3Z2%,"HE EATS IT AND LAUGHS 
» HA HA“:RETURN 
5320 PRINT*YOU THROW THE "3Z1%3" 
AT THE“,Z2%3", DO YOU FEEL BETT 
ER NOW?":FOR N=1 TO 20@@:NEXT N: 
PRINT*DON’T ANSWER THAT! ":RETURN 
5380 IF MD=-1 THEN PRINT"THE "3 
2%; DISAPPEARS! ":MD=0 
5419 IF RMS(PR,1)="M" THEN PRINT 
“HIDEOUS MONSTER" 


OK, try the game again, and try throwing objects other than 
magic dust. Also, try throwing things at objects other than 
monsters. 


CRYSTALS AND SHIMMERING CURTAINS 


Our final feature is the introduction of shimmering curtains of 
impassable energy. 


Some of the doorways in the cave are blocked by curtains of 
shimmering energy. These can be neutralised by magic dust, 
but you may need to save that for the monsters. Instead, try to 
find a crystal, which will act as a key and totally remove the 
curtain, leaving an open doorway. 


No prizes by now for guessing that the first thing we do is add the 
new words to the inventory. This is done in listing 8.2e. 
Listing 8 .2e 


1238 FOR N=@ TO 19 
1269 FOR N=@ TO 2 
1308 DATA GO,9123, TAKE, 56789A, 0P 
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EN, 4,EAT, 7689A, RUN, , FIGHT, , TELEP 
ORT, , THROW, 5S6789A 

1319 DATA NORTH, SOUTH,EAST, WEST, 
DOOR, KEY, EMERALDS, FOOD, BATTERIES 
»MAGIC DUST, CRYSTAL 

1328 DATA TROLL, MONSTER, SHIMMERI 
NG CURTAIN 


I will leave it up to you to decide what you're going to add in the 
instructions and we will move straight on to the “‘create maze” 
routine. In this section we must make the computer deposit 
articles around the dungeon, which we do by adding listing 8.4e. 


Listing 8 .4e 


1459 IF CRYSTAL®)@ THEN LS=L$+"S* 
1475 IF OS="S" THEN CRYSTAL=CRYS 
TAL-1 

1569 IF RND(@)>.6 THEN LS=L®+"C" 
1629 IF OS="C" THEN CRYSTAL=CRYS 
TAL +1 

1899 OBS="NKBN":LS="ODSW°: HS= "NT 
MN" 


Enter listing 8.5e to describe these new occurences when we meet 
them. 


Listing 8.5e 


2939 IF RMS(PR,9)="C" THEN PRINT 
TAB(9)5"A SHINY CRYSTAL" 

2139 IF RMS(PR,N)="S" THEN PRINT 
"THERE IS A SHIMMERING CURTAIN O 
FENERGY TO THE "3; IBS(N-2) 


The next listing copes with the existence ofa new object that 
could be the target of THROW. 


Listing 8 .7¢ 


S@ FOR N=@ TO 2 
69 IF INSTR(1,2%, ICS(N))>9 THE 
Z2S=ICS(N) FS Z=NIN=2 
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3299 FOR N=4 TO 169 
3396 IF INSTR(1,2%, IBS(N))>@ THE 
N Z2$=IBS(N):Z=-N:N=16 


With all these options for THROW the procedure to check this is 
getting alittle complicated, but don’tworry about this, we will 
explain it all later. For the moment just add the next listing to 
your program. 


Listing 8.8e 

4526 IF Z>@6 THEN IF LEFTS#(22%,1) 
<ORMS(PR,1) AND 229< >"SHIMMERING 
CURTAIN" THEN RF=6: RETURN 

4545 MD=-1:IF Z22¢$="SHIMMERING CU 
RTAIN” THEN 4699 

4589 IF 21%<>"CRYSTAL” THEN 4679 
45969 IF Z22%<>"SHIMMERING CURTAIN 
" THEN 4679 

4669 DR=6:FOR N=6 TO 3 

4616 IF DR=6 THEN IF INSTR(1,2%, 
IBS(N))>@ THEN DR=N+2:N=3 

4626 NEXT N 

46369 IF DR=6 THEN RF=14: RETURN 
4649 IF RMS(PR,DR)<>"S" THEN RF= 
15: RETURN 

4656 RMS(PR,DR)="0":R=PR+FNR(DR) 
> DR=FND (DR) :RMS(R,DR) ="0" 

4669 OK=1:PS(Y-S5S)=PS(Y¥-5)-1:RETU 
RN 


We now add just one more response to section 9 of the program 
and that’s it. 


Listing 8.9e 


5349 PRINT"THERE IS NO SHIMMERIN 
G CURTAIN TO THE “;IBS(DR-2) :RE 
TURN 


We hopeyou enjoy the challenge of surviving and beating this final 
version of our adventure game. 


CHAPTER 9 


Adventures - A Detailed Look 


The previous chapter explained in a general way how the game 
worked by explaining what each routine did. In this chapter we 
will take a closer look at how each of the subroutines works, and 
by the end of the chapter you should be well prepared for 
inventing your own features to the game, or even for writing your 
own game completely. 

Before we get into the routines themselves, we shall have to 
look at the DATA, or knowledge, upon which they work. This is 
stored in the inventories, which represent the computer’s 
knowledge of the world of the dungeons. 

The inventories are made up of three string arrays IA$, IBS and 
ICS. IA$ is a two DIMensional array of strings. In one DIMension is 
a list of all the verbs which the program will recognise, and in 
each corresponding element in the other DIMension there is a list 
of numbers. This can be seen in figure 9.1. The numbers in IAS 
are actually the subscript numbers of the words in IBS. So if we 
take the verb GO, for example, it has an associated list of numbers 
0123, and if we look at IBS, to IBS(3) we see that they contain the 
words NORTH, SOUTH, EAST and WEST. You may be wondering 
what the letter A is doing in the list of numbers. In fact we are 
using it to represent the number 10, so that the computer doesn’t 
get mixed up over 10 being | and 0. We will see how this works 
later. 
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Figure 9.1 TA$ Array 
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Figure 9.2 IB$ Array 


0 NORTH 

1 SOUTH 

2 EAST 

3 WEST 

4 DOOR 

B} KEY 
6 EMERALDS 
7 FOOD 
8 BATTERIES 
9 MAGIC DUST 

10 CRYSTAL 
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1 

0123 
56789A 
4 
56789A 


56789A 


By looking at these arrays we can see that the player may GO to 
the NORTH, SOUTH, EAST or WEST, but he may only OPEN a 
pDoor. He may EAT a whole range of objects (although anything 
but food will choke him, as we will see later). 

When we look at the routine that checks the legality of a 
player’s INPUT we will see how it makes use of the information 
being stored in this way. The third array IC$ is very similar to IB$. 
It contains a list of objects, but these are objects which cannot be 
refered to directly by any of the verbs in IA$. They are referred to 
indirectly and, in our game, by only one verb — THROW. IC$ is 


shown in figure 9.3. 
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Figure 9.3 IC$ Array 


1 TROLL 
2 MONSTER 
3 SHIMMERING CURTAIN 


Another “‘data structure” (to use the lingo) which we must look at 
before going on to examine the various subroutines is the array 
which stores the information about the maze itself. The game 
assumes a maze of 36 rooms/caves/dungeons which are arranged 
in a 6x 6 block. If we think about what we need to know about 
each room, we find that there are six essential pieces of 
information. 


1. Is there a “friendly” object? 

2. Is there a “hostile” object? 

3. What kind of doorway (if any) is to the NORTH? 
4. What kind of doorway (if any) is to the SOUTH? 
5. What kind of doorway (if any) is to the EAST? 
6. What kind of doorway (if any) is to the WEST? 


This means that we need a 36 x 6 array, and you can see the 
statement DIM RM§(35,5) in line 70 of the Control Program. With 
this array we can think of each room as having a number between 
@ and 35, and to see if room number 4 (say) has a friendly object 
(e.g. a key) we would look at RM$(3,0) and see if it is equal to K. 
Now all we need is a convention for representing the various 
objects, and the convention we have chosen is as follows: 


In RM§$(n,0) — Friendly objects 


K = KEY 
E = EMERALD CROWN 
F = FOOD 


B = BATTERIES 
M = MAGIC DUST 
C = CRYSTAL 


In RM$M(n,1) — Hostile objects 
T = TROLL 
M = MONSTER 
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In RM§(n.2) to RMSn,S) — Entranceways 


O = OPEN DOORWAY 
D = LOCKED DOORWAY 
S$ = SHIMMERING CURTAIN 


W = WALL 


The array RJ$ is simply filled with adjectives whichare then 
chosen at random to describe a room the player has just entered. 
The last array we use in the game is the numeric array PS(4). This 
is used to store each object the player has on his person. 


Ps(o) = Number of Keys 

Ps(i) = Number of Emerald Crowns 
Ps(2) = Number of Food Packs 

ps3) = Number of Piles of Magic Dust 
PS(4) = Number of Crystals 


Now that we know how the information is stored we can look at 
how the various subroutines make use of it. 

The first subroutine assigns the inventories, that is, it reads all 
the verbs, etc., from the DATA statements in lines 1300 to 1320 
into the arrays IAS, IB$, 1C$and RMS. This should be easy to follow 
as it is very similar to the way DATA was read in the sections of 
our arcade game which defined graphics characters. 

The next section, the instructions, is also fairly self 
explanatory. We have already looked at PRINT statements and 
FOR NEXT loops, so enough said! 

By contrast, the next section, creating the maze, is probably 
the most complicated routine in the program. Don’t turn over, 
though, it’s still quite easy to follow what's going on. It begins by 
choosing a random position in the maze at which to put the 
Crown of Emeralds and another random position for the player's 
starting point. These positions are stored in the variables CE and 
PR respectively. The next thing it does is to “‘walk” from the 
player’s room to the Crown Room, hanging various types of doors 
and depositing various objects on the way, in such a way as to 
ensure a feasible path exists through the maze. 

It does this by first calling at random either a routine to deposit 
an object or a routine to deposit a hazard. These routines make a 
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random choice between the various types of object or hazard, and 
sometimes even deposit a N (which stands for “Nothing”). The 
routine which deposits objects keeps a record of how many of 
each type it has deposited. The number of kevs deposited, for 
example, is stored in the variable KEY 

The next thing the routine does is to choose what kind of door 
to put up. The choice available depends on what objects have 
been deposited so far. For example, if KEY is equal to one or 
more the character D (for locked door) will be added to the list of 
possibilities (stored in L$) — this occurs in line 1440, and the 
actual choice of door is made in line 1460. Ifa locked door is 
chosen we must assume that the player will use up a key in 
opening the door (remember they alwavs get stuck or broken) 
and so the routine takes one of f the variable KEY 

Well, now that the routine knows what type of (door or 
shimmering curtain or whatever) it is going to put up, it needs to 
figure out where to put it. This is done by calculating the 
difference between the position of the Crown Room (CE) and the 
current position of the computer on its “walk” (xX). This 
difference is stored in the variable y_ Bearing in mind that we are 
using a 6 x 6 grid of rooms, it should be clear that if y is bigger 
than six then the Crown Room must be in a row of rooms below 
the computer’s current position. Similarly, if y is less than minus 
six the Crown Room must be above us somewhere. A look at 
figure 9.4 should make this clear. A similar bit of reasoning tells 
us whether the Crown Room is to the left or right once we are on 
the same row. 


Figure 9.4 The Maze 
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Once the direction has been decided upon the computer puts the 
chosen door on the chosen wall, ‘‘spirits” itself through the door 
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into the next room and — very important — puts the same type of 
door on the other side. (It would be a bit silly to have a door that 
was locked from one side and open from the other.) You can see 
all this going on in lines 1480 and 1540. 

Once the Crown Room has been reached, Crown of Emeralds 
and a monster guard are deposited in it and the computer then 
goes through the entire maze room by room, putting up random 
doorways wherever it finds blank walls (Ww) and depositing 
random objects and hazards in empty rooms. This happens in 
lines 1800 to 1990 — note lines 1840 to 1870 preventdoors to the 
outside world from being put up. 

Well, you can see that building the maze is quite a job, and this 
fact is reflected in the twelve seconds which it takes the computer 
(which is no slouch in these matters) to complete the task. It is so 
unusual in games-type applications to find something that takes 
the the computer so long to do, that the player might be forgiven 
for thinking that the computer has “hung up” on him. That is 
why the message WAIT is PRINTed at the beginning of the 
routine. 

Having created the maze, the control program now moves into 
the main loop, which will go round until the game is either won 
or lost. The first section in this loop calls the routine to describe 
the room the player is currently in. If the player has just entered 
the room, as opposed to still being there from the last time 
around, this routine will also give a short description of the room 
itself. This condition is “flagged” by the variable NR (for New 
Room). If it is 1 the routine will describe the room, butif it is ®, 
it will only describe the room’s contents. The routine is in lines 
2000 to 2190, and the first two lines are the ones which describe a 
new room. This is done by choosing two adjectives at random 
from the array AJ$ and assigning them to the string variables A$ 
and B$, thenincluding these in the PRINT statement in line 2010. 
The word CAVE or PASSAGE is also chosen randomly. 

If you look at line 27@ in the control program you will see the 
statement ON NR+! GOSUB 2020, 2000. This is how the program 
decides whether or not to describe the room. The ON - GOSUB 
statement looks at the number, or expression, following the word 
ON, and if itis 1, it GOSUBs to the first line number after the word 
GOSUB, if it is 2, it GOSUBs to the second line number, and so on. 
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In this case, this means that if NR is 1, then NR+1 will be 2, and it 
will GOSUB to line 2000, and describe the room. If NR is 0, 
however, NR+1 will be 1, and so the control program will GOSUB 
to line 2020, thereby missing out part of the subroutine which 
describes the room, and going directly to the section which lists 
the objects present in the room. 

This part of the routine is quite simple. It tests RM&PR.0), i.e. 
the “friendly object” element of the room the player is in for each 
type of object that could be there, and if it finds one it PRINTs it 
out. Then it does exactly the same for RM§(PR.1) — the “‘hostile” 
object element. Note the use of the TAB function to line them up 
neatly. Just to make the descriptiona bit more interesting, we 
have added a selection of descriptions of keys — rusty, large, 
golden and wooden, and these are chosen at random IF RM$(PR.O) 
=“K", indicating the presence of a KEY. Finally the routine 
checks the four directions NORTH, SOUTH, EAST and WEST 
(elements 2 to 5 in RM$ second dimension) and PRINTs out 
whether a door (it doesn’t specify whether it is locked or not) or a 
shimmering curtain is there. 

Once the player has been told of his situation, it is time for him 
to tell the computer what he wants to do. You will notice that 
before the player makes his INPUT, there are two PRINT. 
statements. The first of these PRINTs a space at the last position 
on the screen, causing the screen to scroll up one line, which 
makes space for the user to enter his INPUT. The second PRINT 
statement merely serves to move the PRINT position (i.e. the 
place where the next item will be PRINTed) to the beginning of 
the last but one line on the screen, which is where we want the 
player’s INPUT to start. Then there is the INPUT statement itself — 
INPUT US. This makes the computer wait for the player to type in 
his instructions, which are placed into the string variable US. 

The next routine checks the player’s instruction to see if they 
make sense. It first makes a quick check to see of the player has 
given up and typed QUIT, since if he has there is no point in going 
any further. Look at line 3000. There is a word there that you 
probably haven’t seen before — INSTR. It stands for ‘in string” and 
it is one of many functions the Dragon has for handling strings. 
What this does is to examine the strings in U$, starting at the first 
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character (because of the | inside the brackets) and see if the 
string QUIT is to be found in it. The result of this function is a 
number, not a string, and the number is the position i U$ of the 
string QUIT. So if the player typed “It !!!? QUIT”, in a fit of 
frustration, the INSTR function would produce the number 6. If 
the “target string” (QUIT in this case) is not in the “object string” 
(U$ in this case) then INSTR returns the number 0. We don’t 
really care where the word QUIT is within US, only if it is there at 
all, so we just ask if INSTR returns a number greater than 0, and if 
so we set the QUIT flag, Q, to 1, and RETURN. When the legal 
check routine returns to the control program the QUIT flag is 
tested, and if it has been set, the program jumps to the END. 

Usually the player will not have quit, and so the checking 
routine has to flex its muscles a little harder. The routine finds 
words within U$ by looking for spaces, so to avoid any confusion 
the first thing it does is to remove any leading or trailing spaces 
from US. (eg. “© GONORTH  ” would be trimmed down to “GO 
NORTH”. This is done by the use of another three string functions 
- LEFT$, RIGHT$ and LEN. LEFT$ takes the form LEFT$(X$,N) and 
returns a string which consists of the first N characters of the 
string X$. RIGHTS takes the form RIGHT$(X$,N) and returns a 
string which consists of the last N characters of the string X$. For 
the sake of completeness you may as well meet their sister MID$, 
which takes the form MID$(X$,N,M) and returns a string 
consisting of M consecutive characters from X$, starting at 
character number N. Brother LEN takes the form LEN(X$), and 
does not return a string, but returns a number equal to the 
number of characters in X$. With this information you should be 
able to see how lines 3010 and 3020 strip off the leading and 
trailing spaces. 

The next thing the routine does is to split the player’s INPUT 
(U$) into two strings. The first word (which we assume to be the 
verb) goes into W’1$, and the rest of the string, if there is any 
more, goes into 2$. Then the routine loops through each “verb” 
element of IR$ checking it against W1$, and as soon as it finds a 
match, it stores the verb’s subscript number in the variable X and 
exits the loop. Before entering the loop X is set to—1, so if it is 
still equal to —1 when the loop has finished, it means that W1$ was 
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not one of the allowed verbs, so we set RF, used to choose an 
appropriate response to the player’s input, and then RETURN. 

If X is not equal to —1 we know that we must have found a legal 
verb, so the next line tests to see if it was one of the verbs RUN, 
FIGHT, or TELEPORT. Since these are different from the other 
verbs in that they do not require any noun to make sense, we can 
just set the flag LG to tell the control program that the player’s 
INPUT was legal, and RETURN. Otherwise, we will need to check 
that the rest of the player’s INPUT contains a word to which that 
verb can refer. First, we assign L$ as the list of numbers from IRS 
which correspond to the verb we have found. Then we set up a 
loop which changes each of these numbers in turnfroma 
“character” into a number using the function VAL, and then uses 
INSTR again to see if the object in IB$, pointed to by that number, 
is in the player’s INPUT. If it is, we store the word’s subscript 
number in Y, store the word itself in 21$, and exit the loop. We 
set Y to—Il before entering the loop so that on exit we can test it to 
see if we found a legal word. You can see this in lines 3160 to 
3210. You may wonder what the “&H” is for in line 3180. This is 
so the computer will interpret “A” as “10” when the string is 
turned into a number with VAL. “&H” stands for Hexadecimal, or 
Hex for short. It is a different way of counting used in 
computing, which counts in l6s instead of 10s, and uses the 
letters A,B,C,D,E and F to represent the numbers 10 
511,12,13,14 and 15. MID$(L$,N,1) will provide a character which 
is either @—9, or A, and by putting “&H"+ in front of it we will 
build a string that reads “&H3", or “&HA”, or whatever the number 
was. You can “add” strings together like this, but you cannot use 
other mathematical signs with strings, such as ‘~” or “*””, 

For most situations, this will be as far as the inventory search 
goes. Either Y will still be equal to —1, in which case RF will be set 
appropriately, or the player’s INPUT must contain a legal verb/ 
word combination. There is one verb, however, which requires 
further testing, and that is THROW. If the verb in the player’s 
INPUT is throw, then X will be equal to 7, and this is tested for 
before setting LG and RETURNing. This is because the verb 
THROW needs two other words to make sense. So, if we have 
found a legal word combination we must now search the 
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remainder of the player’s INPUT for the name of an object at 
which he can throw things. At this point 7$ contains the player’s 
INPUT minus the first word — the verb. If we search it as it stands 
we will find the name of the object which is being thrown and 
conclude that there is an object in the INPUT which could be 
thrown at. For example, if the player’s INPUT is “THROW KEY” (a 
daft thing to do but perfectly legal) then KEY would be correctly 
identified as the object being thrown, but incorrectly identified as 
the object being thrown at, when in fact no target has been 
specified at all and the INPUT is illegal! We get round this by 
removing the word KEY from 2Z$ before doing the search for a 
target. This happens in lines 3230 and 3240. 

There are two arrays containing objects which can be thrown 
at. IC$ is the one most likely to contain the word in the player’s 
INPUT as this is the array with the words TROLL, MONSTER, and 
SHIMMERING CURTAIN - the objects at which it is sensible to 
throw things. For this reason, we search IC$ first. Z is used to 
store the subscript number of the word (if one is found). Ifa 
word is not found (Z equal to —1) we then know that we must 
search IBS as well. We search IB$ from subscript 4 onwards. (It 
doesn’t make sense to throw something at a NORTH.) If we find a 
word, instead of storing its subscript number we store its 
subscript number multiplied by -1. (Still in Z though). This is so 
that another routine will know whether the object was found IB$ 
or IC$. Again, if no word is found, the response flag is set 
accordingly, otherwise the LG flag is set. In either case there is no 
more searching to be done so we RETURN. 

If the INPUT was not legal, LG will be equal to 0 and the control 
program will move straight on to the response section of the 
game. If LG was set to 1 then the program needs to look at the 
INPUT in the context of the player’s current situation and carry 
out the player’s instructions, if possible, since a legal INPUT (for 
example “TAKE THE KEY”), may still be invalid, if there is no key 
in the room to take. There are clearly many possible situations 
that need to be tested for by this routine, so we have split it up 
into smaller routines, each of which has a much smaller number 
of possibilities to look for. Which of these subroutines is called 
depends on which verb has been used. The main routine first 


178 


resets a flag called OK to 0, and then calls the appropriate 
subroutine. If all is well this subroutine will set OK to 1, as well as 
actually carrying out the player’s instructions. The first routine 
then checks to see if all is OK and sets the response flag 
accordingly. Now we will look at what each of these subroutines 
does. 

The first one is called if the verb was GO. Like the subroutines 
for TAKE, OPEN and EAT. the first line tests for the presence of a 
monster or troll, because if one of these beasts is present, he 
won’t let you go anywhere, open a door, or take or eat anything 
until you have dealt with him. Assuming there is no beasty 
present, the routine checks to see if a direction was specified. If 
not the response flag is set accordingly and we RETURN. 
Otherwise, we set a variable DR for direction and then look in 
RM$ to see if there is an open door in the specified direction. If 
there is, we update PR and set the new room flag, otherwise we 
set the response flag accordingly. In either case we RETURN. PR 
holds the player’s position within the maze — his room number. 
We update it using a function defined in the initialisation section 
of the program. We use it many times in the program and it’s 
much easier to say FNR(DR) than to write out the whole 
expression every time. 

The next subroutine is called when the verb is TAKE. It tests 
whether the object is actually there for the taking, and also tests 
whether the object in question is a set of BATTERIES, resetting 
TIMER if it is. Then it updates the possessions array PS() and 
RETURNS. TIMER is a special variable in the Dragon which is 
constantly being incremented ata rate of 50 per second. If you set 
it to @ and then read it later by assigning it toa variable, you can 
work out how much time has elapsed since you set it. 

The next subroutine is OPEN. It first checks that the player has 
a key and, if so, goes on to check that a direction was specified 
(we must know which door he wants to open) and that the door is 
locked. If al! is well then the possession array is updated (i.e. he 
loses a key), a flag is set (K) so that the response routine will tell 
the player that he has lost a key, and RM$ is updated, then we 
RETURN. (Remember that we need to update two rooms when the 
state of a door changes, and again we use our defined functions.) 
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The subroutine EAT checks that the player actually has 
whatever it is he is trying to eat. Then it checks that he is eating 
food. If not, RF is set to make him choke, otherwise his strength 
is replenished, and his possessions array updated, before 
RETURNing. 

The RUN routine finds an open door if there is one and puts the 
player the other side of it, updating PR at the same time. If 
however there is nothing torun from, or no open door to run 
through, FR is set. 

The FIGHT routine checks that there is something to fight. If so 
it kills it, i.e. removes it from RM$ and resets the monster flag 
MN. It also decreases theplayer’s strength by arandom amount, 
and then RETURNS. TELEPORT simply assigns arandom number 
between @ and 35 to PR and decreases the strength variable by 
200 (teleporting is a strenuous activity). 

The last subroutine is THROW, and it is the most complex of 
these subroutines. It begins by checking that the player has the 
object he is trying to throw. It then tests to see that the specified 
target is actually in the room. If either of these tests prove 
negative, RF is set and we RETURN. If we get past these tests we 
then find out whether the player is throwing MAGIC DUST, a 
CRYSTAL, or some other object. This information is in Z1$, as a 
result of the second part of the inventory search. If it is MAGIC 
DUST then we disappear the target. (Such is the power of MAGIC 
DUST.) If the target was a shimmering curtain, however, we must 
first check that the direction was specifed. If the object thrown 
was a CRYSTAL, then unless the target was a SHIMMERING 
CURTAIN it will have no effect, as is true of any other object 
THROWn. All we want to know is whether the object was thrown 
at a monster or an inanimate object, so that we can set RF to 
either make the monster laugh or the computer pokefunat the 
player. 

If the last two sections dealt with the “brains” of the program, 
this section deals with the ““mouth”. This is the response routine, 
and although it is the longest routine in the program, it is also one 
of the simplest. All the work has already been done to decide 
what the correct response to the player’s INPUT should be. There 
are 20 basic responses and the actual response is chosen by the 
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setting of RF (the response flag) to a number between | and 20. 
All the response routine now has to do is make use of the ON . 
GOSUB statement to call a small subroutine which PRINTs the 
correct response. A full list of responses and their RF numbers is 
given in Appendix Two. 

After PRINTing the response, the routine checks if the player 
now has the Crown of Emeralds and, if so, the WON flag is set and 
we RETURN. The LOST flag is also checked at this point, and if it 
is set, we also RETURN. If the game is neither WON nor LOST, the 
response routine examines the strength variable ST and makes an 
appropriate comment on the state of the player’s health. Then it 
reads TIMER, and if time is running out, it PRINTs a warning to 
that effect. 

The last three routines are only called at the end of a game. The 
first two simply PRINT out a message to commiserate or 
congratulate the player, depending on whether he won or lost. 
After this the control program invites the player to play again, 
and if he accepts, it calls our final routine, which resets the WON 
and LOST flags, and the possessions array. The control program 
then loops back to section 4 of the program, which builds another 
maze, and the whole thing starts over again. If the player declines 
to play again the control program moves on to its last statement — 
END. 


CHAPTER 10 


Some Parting Remarks. 


Well by now you’ve probably learnt quite a lot about writing and 
altering the sort of games we have discussed in this book. There 
should be nothing left to hold you back from writing your own 
games now. You are now in position to write your own BASIC 
games and save your hard-earned pennies for only the best, top- 
quality, machine code, commercial games. Before we leave this 
introductory book behind though it is probably a good idea to 
havea look at one of the most important and much used BASIC 
functions in game writing. Random numbers have been used 
throughout this book and we have never quite got round to 
looking at them in detail. They are used a lot because they can 
help you produce unexpected events, and that is far more 
interesting than having a game that does exactly the same thing 
all the time. Without random numbers the aliens would always 
appear in the same place at the top of the screen and the maze in 
the adventure would be totally predictable. Of course we could 
write so complex a program that we wouldn’t know which one of 
the many parts of the program we were playing against but this 
would take up a lot of memory and, more importantly, a lot of 
effort from the people writing the game. 

The BASIC word associated with random numbers is RND with 
a parameter to suitably modify the range of the output. RND(I) 
gives us arandom number between @and 1 and although it can 
give a value of @ it cannot reach 1 (the highest it will ever get is 
about 0.99999999). Look at the range of numbers with this little 
program: 


100 PRINT RND(1) 
110 GOTO 100 


You should see many different numbers between 0 and 1 with no 
discernable pattern. Actually if you carry on long enough the 
pattern would repeat after 65536 numbers. This is because RND 
is really only a pseudo-random function. The computer actually 
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calculates the next random number from the current one by 
adding a large prime non-divisor of 2 f 32 then reducing this 
modulo 2 f 32 to give a number between @ and 65536. The 
random number returned is either this number interpreted in 
two’s complement notation for an integer (i.e. for RND with a 
parameter greater than 1) or this number divided by 65536 for 
RND(1), so it’s all very rational really!! 

Here is a short program to simulate the throwing of a die: 


10 REM PROGRAM TO THROW A DIE 
20 PRINT RND(6) 
30 GOTO 20 


The above program will give random numbers in the range | to 6. 
Of course if we wanted to simulate twodice being thrown we 
would have to produce numbers in the range 2 to 12 but we 
would work it out by calculating two numbers in the range | to 6 
and adding them together, not by producing a new function call 
along the lines of INT (RND(11)+1.) 

Well, that’s enough about random numbers. If you have spent 
enough time playing with (and altering) the games in this book 
you will be feeling ready to use BASIC in the development of your 
own games and adventures. Who knows, you may even decide to 
start writing programs to keep track of your bank balance and 
such like. Whatever you decide to do remember to keep clearly in 
mind the overall job. Always split your task up into smaller sub- 
tasks and never try to solve all the details of one sub-task before 
you even have an idea what the rest of the tasks are going to be. If 
you approach programming, or even writing a book, in this way, 
you will find that you can easily get through even the longest of 
jobs. This sort of approach is known as structured programming 
and although BASIC is not intrinsically a structured language we 
can still approach the building of a program in an orderly fashion. 
It would almost certainly be worth your while getting a book on 
structured BASIC programming to help you to expand your 
knowledge of working BASIC. Remember to go for one that has 
plenty of programming examples and if possible one with 
exercises that you can work through. If you got on well using the 
BASIC blocks in this book then maybe you should consider a 
career in computing!! 


APPENDIX ONE 


Arcade Game Variables 


ALIENS 
AMMO 
AS 


AX 


AY 
BX 


SCORE 


Number ofaliens left. 

Number of bullets, etc., left. 

ASCII code of character to be PUT by PUT STRING 
routine. 

Current x co-ordinate of alien. 

Currenty co-ordinate of alien. 

x co-ordinate of bomb/fireball. 

y co-ordinate of bomb/fireball. 

Value to be POKEd to the screen in character 
definition routine. 

Number of character being defined in any batch. 
Flag to enable downward movementof player. 
Flag to indicate dead alien. 

Flag to indicate firing game. 

Flag to indicate end of game situation. 
Amountof fuel left. 

Number of games played. 

Flag to indicate hyperdrive enabled. 

Flag to indicate alien hit, or player crashed. 
Flag to indicate shot has beenfired. 

Flag to indicate left movement enabled. 
Number of characters to bedefined ina given 
batch. 

Inverse flag. If set (1) reverses foreground/ 
background. 

Number ofaliens that have got past. 

Page number of first visible graphics page in 
character definition routine. 

Current x co-ordinate of player. 

Current y co-ordinate of player. 

Control variable in background loop. 

Flag to indicate right movement emabled. 
Row number of character being defined. 
Player’s score. 
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ARRAYS 
AQ) 

AB(1) 

Bal) 

ca) 

N(I) 


PB(1) 
T(1),UK()) 


Firstaddress to be POKEd in character definition 
routine. 

Flag to indicate up movement enabled. 

X co-ordinate of background object. 

Old x co-ordinate of alien. 

X co-ordinate of character to be GOT in 
PUTSTRING. 

Old x co-ordinate of player. 

X co-ordinate of first character instringto be PUT. 
Control variable in character definition loop. 

Y co-ordinate of background object. 

Y co-ordinate of character to be GOT in PUT STRING. 
Old y co-ordinate of player. 

Y co-ordinate of first character in string to be PUT. 
Used with INKEY$ to wait for player response. 
PLAYed in firing routine. 

String passed to PUT STRING for PUTting onscreen. 


Stores alien character. 

Stores alien background. 

Stores player character. 

Stores bomb/fireball character. 

Used for PUTting alphanumerics on to the screen. 
(And for background in bomb routine.) 

Stores player background. 

Store background object characters. 


APPENDIX TWO 


Adventure Game Variables 


FLAGS 
K 


Set to—1 whena key is used up (in opening a door). 
Set to 1 to indicate presences of alocked door. 

Set to 1 when player dies! 

Setto—] when magic dust is thrown. 

Set to | to indicate presence of monster ortroll. 
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NR Set to 1 when player changes room. 

OK Set to 1 when program successfully performs 
player’s instructions. 

Q Quit flag. Set to 1 when player quits. 

RF Response flag. Set toa number between | and 20 to 
indicate which of 20 responses is to be used in 
response routine. 

WON Set to 1 when player takes Crown of Emeralds 

NUMERIC VARIABLES 

CRYSTAL Used in computer “walk” through maze. While 
greater than zero it indicates that more crystals than 
shimmering curtains have been placed in the maze. 

CE Room number of Crown of Emeralds. 

DR Indicate direction of doorway beingreferred to. 

2 to 5 are NORTH, SOUTH, EAST and WEST. 

KEY Used on maze “walk”, While greater than zero it 
indicates that more keys than locked doors have 
been placed in the maze. 

Le Temporary store of lengths of various strings. 

M,N Control variables for various loops. 

PR Player’s current room number. 

R Temporary store for random numbers. 

ST Strength level. Starts at 1000. Player dies of 
exhaustion atzero. 

T™ Time passed (in minutes) sincegame started or 
since player last acquired new batteries. 

Vv Control variable for loop in verb inventory search. 

X,Y,Z Used in inventory searches to store subscript 
numbers of words found. X and Y are also usedin 
building themaze. X stores the computer’s room 
number during the “‘walk”’. Y stores the difference. 

STRING VARIABLES 

AS,BS Storeadjectives from AJ$(4,1) for room 
description. A$is also used with INKEY$ to wait for 
the player to read the instructions. 

HS Strings of hazards in maze building routine. 

L$ Temporary store for various strings. 

os Stores chosen object, hazard, or door to be placed. 
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OBS 
US 
ZS 


ZS 
Z2$ 


ARRAYS 
PS(4) 


IA$(7,1) 


IB$(10) 
IC$(2) 


RM3$(35,5) 


AJS(4,1) 


String of objects in maze building routine. 
Player’s INPUT 

Player’s INPUT minus verb. (And minus Z1$ in 
inventorysearch part three.) 

Object of verbin player’s INPUT. 

Indirect object of verb “throw”. 


Numeric array. Stores quantities of each itemin 
player’s possession. 

List oflegal verbs, and pointers to objects to which 
verbs may refer directly. 

List of objects to which verbs may refer directly. 
List of objects to which the verb THROW may refer 
indirectly. 

Room array. Storesinformation about presence of 
friendly objects, hostile objects and doorways, for 
each room inthe maze. 

List of adjectives, for room description. 


RESPONSES 

WHAT?! 

IDONOTKNOWTHEVERB... 

YOU CANNOT ...THE... 

YOU CANNOT GO... 

THE DOORISLOCKED. 
ISEENO...HERE. 

BUT YOU DONOT HAVEA KEY. 

THERE IS NO LOCKED DOOR TO OPEN 
HERE. 

Not used. (Reserved for future use). 

YOU DONOTHAVETHE... 

YOU EATTHE... YOU CHOKE TO DEATH! 
YOUTHROW...ATTHE...HEEATSIT 
AND LAUGHS. HAHA. 

YOU THROW ...AT THE... ,DOYOU FEEL 
BETTER NOW? DON’ TANSWERTHAT! 
WHICH DIRECTION? 

THERE IS NO SHIMMERING CURTAIN TO 
THE... 
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YOU .. .(Echo player’s INPUT). 
YOU TRYTO...BUT YOU AREATTACKED 


BY THE... 
YOURUN. 


YOU FIGHT THE BEAST, YOU STAVE IN 
HIS SKULL, HECRUMBLES TO DUST. 
YOU CANNOT RUN- THE ENTRANCES 


ARECLOSED. 


APPENDIX THREE 


ASCII Character Codes 


Code 


Character 


space 
t 


> 
—(minus sign) 


DRDWOpwneo-* 


Code 


ao 


SrA--TOMMOAOMPFaAYV 
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Code Character 


Code Character 


Pia NK HM Ec eK NOVO Bg RTE 


96-127 


appear on screenas 
inverse characters. 


128 to 255 are block graphic characters. 


78 N 104 
79 O 105 
80 P 106 
81 Q 107 
82 R 108 
83 5 109 
84 T 110 
85 U 111 
86 Vv 112 
87 Ww 113 
88 xX 114 
89 Y 115 
90 Z 116 
91 [ 117 
92 7 118 
93] 119 
94 t 120 
95 - 121 
96 @ 122 
97 a 123 
98 b 124 
99 c 125 
100 d 126 
101 e 127 
102 f 

103 g 

APPENDIX FOUR 


Decimal/Binary Conversion Table 


DECIMAL BINARY 


0 00000000 
1 00000001 
2 00000010 
3 00000011 
4 00000100 


OWI DY 


00000101 
00000110 
00000111 
90001000 
00001001 


00001010 
00001011 
00001100 
00001101 
00001110 


DECIMAL BINARY 


18 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
7 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


00001111 
00010000 
00010001 
00010010 
00010011 
00010100 
00010101 
00010110 
00010111 
00011000 
00011001 
00011010 
00011011 
00011100 
00011101 
00011110 
00011111 
00100000 
00100001 
00100010 
00100011 
00100100 
00100101 
00100110 
00100111 
00101000 
00101001 
00101010 
00101011 
00101100 
00101101 
00101110 
00101111 
00110000 
00110001 
00110010 
00110011 
00110100 
00110101 


S4 
58 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 


00110110 
00110111 
00111000 
00111001 
00111010 
00111011 
00111100 
00111101 
00111110 
00111111 
01000000 
01000001 
91000010 
01000011 
01000100 
01000101 
01000110 
01000111 
01001000 
01001001 
01001010 
01001011 
01001100 
01001101 
01001110 
01001111 
01010000 
01010001 
01010010 
01010011 
01010100 
01010101 
01010110 
01010111 
01011000 
01011001 
01011010 
01011011 
01011100 


93 

94 

95 

96 

97 

98 

99 

100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
1l4 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 


189 


01011101 
01011110 
01011111 
01100000 
01100001 
01100010 
01100011 
01100100 
01100101 
01100110 
01100111 
01101000 
01101001 
01101010 
01101011 
01101100 
01101101 
01101110 
01101111 
01110000 
01110001 
01110010 
01110011 
01110100 
01110101 
01110110 
O1110111 
01111000 
01111001 
01111010 
01111011 
01111100 
01111101 
01111110 
O1111111 
10000000 
10000001 
10000010 
10000011 
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LECIMAL BINARY 


132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 


10000100 
10000101 
10000110 
10000111 
10001000 
10001001 
10001010 
10001011 
10001100 
10001101 
10001110 
10001111 
10010000 
10010001 
10010010 
10010011 
10010100 
10010101 
10010110 
10010111 
1001 1000 
10011001 
10011010 
10011011 
10011100 
10011101 
10011110 
10011111 
10100000 
10100001 
10100010 
10100011 
10100100 
10100101 
10100110 
10100111 
10101000 
10101001 
10101010 


10101011 

10101100 
10101101 

10101110 
10101111 
10110000 
10110001 
10110010 
10110011 

10110100 
10110101 

10110110 
10110111 

10111000 
10111001 

10111010 
10111011 

10111100 
10111101 

10111110 
10111111 

11000000 
11000001 
11000010 
11000011 
11000100 
11000101 

11000110 
11000111 
11001000 
11001001 
11001010 
11001011 
11001100 
11001101 

11001110 
11001111 
11010000 
11010001 


11010010 
11010011 
11010100 
11010101 
11010110 
11010111 
11011000 
11011001 
11011010 
11011011 
11011100 
11011101 
11011110 
11011111 
11100000 
11100001 
11100010 
11100011 
11100100 
11100101 
11100110 
11100111 
11101000 
11101001 
11101010 
11101011 
11101100 
11101101 
11101110 
11101111 
11110000 
11110001 
11110010 
11110011 
11110100 
11110101 
11110110 
11110111 
11111000 


DECIMAL BINARY 


249 
250 
251 
252 
253 
254 
255 


11111001 
11111010 
11111011 
11111100 
11111101 
11111110 
eueoeuer 
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